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Preface 

The  purpose  of  this  study  was  to  develop  a  computer 
program  that  could  be  used  in  place  of  penci 1 -and-paper 
calculations.  My  specific  interest  was  the  calculation  of 
probabilities  of  engagement  and  kill  for  air  defense/ 
aircraft  interactions  in  various  war  games.  In  my  Army 
career,  I  have  participated  in  several  studies  using  war 
games,  and  while  some  of  the  games  were  computer  supported, 
the  air  defenders  were  always  left  with  table  look-ups  for 
what  were  sometimes  extensive  calculations. 

I  wanted  to  design  a  program  that  could  be  used  on 
almost  any  micro-computer  by  people  who  were  not 
programmers.  I  also  wanted  to  design  a  program  that  could 
be  changed  by  a  programmer  to  reflect  new  weapons  or  a 
specific  war  game.  The  Air  Defense  War  Game  Support  Program 
was  the  result  of  these  desires. 

I  owe  a  debt  of  gratitude  to  my  thesis  advisor,  Captain 
Patricia  Lawlis,  who  showed  a  great  deal  of  patience  with 
me.  Her  advice  on  programming  and  thesis  construction  was 
invaluable.  I  would  also  like  to  thank  Major  James  Coakley 
and  Lieutenant  Colonel  Palmer  Smith,  both  of  whom  reassured 
me  at  times  that  I  wasn't  off  base. 

My  greatest  thanks  go  to  my  wife,  Robin,  who  supported 
me  throughout  the  long  haul,  and  my  daughters,  who  managed 
to  curb  their  desires  to  play  on  the  computer  while  I 
worked. 

David  L.  Bol t# 
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-^This  repor  t  dttai  1  s  the  development  of  the  Air  Defense 

rni (ijImiI,  . 

Mar  Game  Support^ Program^  J The  Air  Defense  Mar  Game  Support 
ProgramS>rovides  one-on-one  probabilities  of  engagement  and 
kill  for  a  variety  of  forward-area  air  defense  systems 
against  different  types  of  aircraft.  Each  air  defense 
system  is  described  by  type  (Vulcan,  SGT  York,  Redeye, 
Stinger,  or  Chaparral),  location  (Europe,  desert  or  jungle) 
and  effectiveness  level  (0.0  to  1.0).  Each  aircraft  is 
described  by  type  (helicopter,  transport  or  fighter),  tactic 
(pop-up,  lay-down  or  fly-over),  and  profile  or  aspect 
presented  to  the  air  defense  system  (head-on,  crossing,  or 
tail).  The  results  of  an  interaction  between  an  air  defense 
unit  and  an  aircraft  are  determined  by  comparing  a  program 
generated  random  number  with  threshold  values  calculated 
from  data  tables.  The  displayed  results  of  an  engagement 
include  whether  the  aircraft  is  engaged,  whether  the 
aircraft  is  hit  and  destroyed  or  mission  suppressed,  and 
whether  the  air  defense  system  suffers  any  attrition  from  an 
aircraft  that  was  engaged  but  not  destroyed  or  suppressed, 

Mi  thin  the  program  the  factors  used  in  the  calculation 
of  the  engagement  and  kill  thresholds  may  be  changed. 
Additionally,  the  probabilities  of  air  defense  system 
attrition  and  aircraft  suppression,  the  attrition  factor  and 
the  random  number  seed  may  be  changed. 


The  program  is  designed  specifically  to  be  used  by 
personnel  without  a  computer  background,  yet  has  a 
structured  programming  style  that  permits  easy  modification 
by  a  programmer.  The  Air  Defense  Mar  Game  Support  Program 
is  written  in  standard  Pascal  and  can  run  on  a  standard 
micro-computer  with  64  thousand  <64K>  bytes  of  memory. 
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Introduction 


I  . 

In  Army  Air  Defense  Artillery  war  gaming  one  o-f  the 
more  tedious  tasks  can  be  the  repetitive  dice  rolls  and 
calculation  of  results  from  numerous  paper  tables.  Random 
number  generation  and  table  look-ups  are  particularly  suited 
for  computers,  but  the  programs  that  provide  the  proper 
tables  and  numbers  are  not  always  available  for  those  that 
need  them.  One  particular  group  of  war  game  users  in  the 
Army  are  the  trainers  of  the  junior  officers  of  forward-area 
air  defense  weapons  units.  They  have  had  to  resort  to  the 
dice  and  paper  tables  for  the  air  defense  system 
probabilities  of  engagement  and  kill  in  their  training  and 
in  support  of  large-unit  war  games.  In  this  thesis  a 
computer  program  is  developed  to  provide  random  numbers  and 
air  defense/aircraft  interaction  results,  a  program  with 
characteristics  of  usability,  portability  and  small  size 
which  make  it  particularly  suited  for  use  at  the  small-unit 
and  training  school  levels. 

Background 

There  are  currently  in  use  in  the  U.S.  Army  numerous 
methods  for  determining  the  probabilities  of  engagement  and 
kill  required  for  air  defense  support  in  war  games  and 
models.  Some  of  the  methods  used  by  various  commands 
involve  probability  tables  that  have  been  derived  from 
studies  done  in  other  war  games,  by  manufacturers  of  weapons 


systems,  and  -from  commercial  games  simulating  combat.  Many 
o-f  the  probability  calculation  procedures  are  based  on 
weapons  systems  that  are  currently  being  replaced  with 
upgraded  models  or  new  systems. 

Current  Systems.  At  White  Sands  Missile  Range,  New 
Mexico,  the  TRADOC  Systems  Analysis  Activity  (TRASANA) 
maintains  a  continuous  war  game  called  the  Battalion 
Analyzer  and  Tactical  Trainer  -for  Local  Engagements 
(BATTLE).  The  scope  o-f  BATTLE  is  scenario  restricted  as  i  t 
models  only  Fulda  Gap,  Germany,  and  it  is  designed  to  model 
one  or  two  battalions  o-f  infantry  or  armor  with  provisions 
for  some  short-range  air  defense.  In  this  model ,  a  computer 
is  used  for  random  number  generation,  but  paper  tables  are 
used  for  the  air  defense  probabilities  of  engagement  and 
kill. 

The  U.S.  Army's  Air  Defense  Artillery  School  at  Fort 
Bliss,  Texas,  routinely  uses  war  games  in  the  training  of 
officers  in  the  basic  and  advanced  courses.  Various  models 
are  used  to  simulate  the  air  defense  activity,  each  lacking 
a  standard  procedure  for  determining  the  probabilities  of 
engagement  and  kill.  Some  of  the  tables  are  derived  from 
Fort  Leavenworth's  war  game  DUNN-KEMPF,  others  from  a  set  of 
complex  equations  developed  in  an  early  model  [Blum,  19631. 
These  were  developed  for  the  weapons  systems  of  the  1960's: 
the  L*ulcan  20mm  gun  and  Chaparral  infrared-seeking  missile. 
At  Aberdeen  Proving  Grounds,  Maryland,  the  Army  Materiel 


Systems  Analysis  Activity  (AMSAA)  runs  a  Monte  Carlo  model 
of  platoon  and  battery  forward-area  Air  Defense  units. 
AMSAA" s  INCURSION  model  is  implemented  on  CYBER  and  UNI VAC 
computers. 

One  of  the  best  large  air  defense  models  in  use  is  at 
the  Technical  Center  of  the  Supreme  Headquarters  Allied 
Powers,  Europe.  Its  complexity  is  permitted  by  the  support 
of  large  computers  and  a  dedicated  programming  staff 
[Cameron  et  al ,  1988;  Wilhelm,  19791.  Other  models 
requiring  similar  support  include:  DADENS,  the  Divisional 
Air  Defense  Engagement  Simulation  [Seamens  et  al ,  19771; 
STAGEM,  Surf ace-to-Ai r  Gun  Effectiveness  Model  [Young  and 
Solomon,  1977];  and  EVADE  II,  Evaluation  of  Air  Defense 
Effectiveness  [Paris  et  al ,  19743. 


The  requirements  for  large  computers  (CDC  6688  or  CDC 
Cyber  usually)  and  programming  expertise  are  the  primary 


limitations  on  the  use  of  larger  air  defense  models. 
Computers  that  can  run  these  models  *re  not  available  at 
Army  division,  battalion  or  school  levels.  The  Air  Defense 
Artillery  School's  models  are  not  designed  for  the  new 


weapons  systems,  and,  as  a  general  rule,  are  cumbersome 
paper  and  pencil  exercises  of  limited  utility.  The  Teledyne 


Corporation  has  developed  a  set  of  air  defense  models  for  a 
mini-computer ,  but  these  are  oriented  towards  the 
development  of  new  air  defense  systems  rather  than  the 
modeling  of  current  systems  and  support  of  larger  models 


[Hays  and  Linton,  19743. 
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Particularly  for  the  forward-area  air  defense  systems, 
there  exists  a  need  for  a  general  model  to  produce 
reasonable  engagement  and  kill  statistics  for  small  units 


and  training  commands.  This  model  could  also  be  used  to 
complement  war  games  and  models  of  larger  units.  The 
specific  problem  environment  identified  is  that  of  the  U.S. 
Army  Air  Defense  School  at  Fort  Bliss,  Texas,  and  numerous 
forward-area  air  defense  battalions.  Constrained  by  the 
limited  availability  of  large  computers,  the  immediate 
solutions  include  a  model  on  paper  that  could  be  easily 
referenced  and  a  model  designed  for  a  smaller  computer  that 
does  not  require  extensive  programming. 

Objectives 

The  primary  objective  of  this  thesis  is  the  development 
of  a  computer  program  to  model  a  variety  of  forward-area  air 
defense  systems  in  different  situations.  The  model  is  to 
provide  the  probabilities  of  engagement  and  kill  for  the 
interactions  between  an  air  defense  system  and  one  of  a 
variety  of  aircraft  necessary  to  support  the  training  of 
student  officers,  to  support  small -unit  war  gaming,  and  to 
supplement  large-unit  war  gaming.  The  model  is  to  be 
designed  as  an  interactive  program,  written  for  a  micro¬ 
computer,  designed  to  be  flexible,  portable  and  easy  to  use 
by  inexperienced  personnel. 


A  primary  subobjective  is  to  use  a  modular  approach  to 
the  program,  -facilitating  changes  and  additions.  This  will 


permit  the  addition  of  different  weapons  systems  or 
scenarios  and  changing  of  the  methods  of  probabi 1 i ty 
calculations.  Additional  subobjectives  are: 

-to  develop  a  model  that  is  applicable  to  the  current 
inventory  of  air  defense  weapons  and  flexible  enough  to 
reflect  changes  in  either  the  weapons  systems  or  the  threat, 
-to  include  characteristics  in  the  program  that  will 
make  the  model  usable  by  personnel  without  a  computer 
background, 

-to  use  a  standard  computer  programming  language  to 
make  the  program  portable  to  a  variety  of  computer  systems, 
and 

-to  provide  sufficient  documentation  for  the  program  to 
allow  programmers  to  modify  the  program  as  necessary. 

Scope 

In  this  thesis,  each  air  defense  system  is  described  by 
system  type,  location  and  effectiveness  level;  and  each 
aircraft  is  described  by  type,  tactic  and  aspect  presented 
to  the  air  defense  unit.  The  program  provides  for  one-on- 
one  interactions  between  the  air  defender  and  the  attacking 
aircraft  and  generates  both  the  random  numbers  and  results 
of  an  interaction.  Radar  detection  and  radar  cross-section 
of  the  target  are  not  considered  essential  for  this  model , 
as  radar  is  not  the  primary  detection  means  for  the 


dominant  number  of  f orward-area  air  defense  systems.  The 
modeling  of  electronic  counter-measures  is  considered  to  be 
beyond  the  scope  of  the  program.  An  engagement  is  modeled 
only  as  an  interaction  between  the  air  defense  system  and 
the  aircraft  and  does  not  consider  the  particular  killing 
mechanism  of  the  weapon. 

Assumptions.  The  basic  assumption  in  the  program  is 
that  the  probabilities  used  in  the  program  are  based  solely 
on  the  factors  in  the  air  defense  unit  and  aircraft 
descriptions.  The  reaction  time  of  the  defender  and  the 
range  of  the  first  shot,  given  engagement,  are  controlled  by 
an  assumption  that  engagement  and  the  first  shot  is  made 
inside  the  maximum  range  of  the  weapon. 

The  computers  and  support  software  necessary  to  run  the 
program  developed  in  this  thesis  are  not  currently  available 
in  the  forward-area  air  defense  artillery  battalions  or  at 
the  Air  Defense  Artillery  School.  A  basic  assumption  has 
been  made  that  micro-computers  and  a  compiler  will  be 
available  in  the  near  future  at  the  utilization  levels  for 
which  the  model  is  designed. 

Literature  Review 

Research  for  this  thesis  is  limited  in  scope.  There  are 
a  plethora  of  models  which  deal,  at  least  in  pert,  with 
ground-based  air  defense,  but  there  is  a  dearth  of 
information  available.  The  primary  source  for  information 


on  the  models  previously  cited  was  the  Defense  Technical 


Information  Center,  yet  word-of-mouth  and  phone 
conversations  brought  other  models  to  the  attention  of  the 
writer.  Many  of  the  models  and  programs  in  use  at  various 
agencies  are  not  documented.  These  models,  having  been 
developed  for  specific  transient  applications,  are  retained 
in  the  developing  offices  but  not  documented  for  use  outside 
a  particular  agency.  CBattilega  and  Grange,  1983:4]  Other 
models  involve  classified  information  which  the  writer 
desires  to  avoid  as  restricting  eventual  usefulness  of  the 
final  product.  In  the  writer's  practical  experience  there 
are  no  models  or  programs  in  use  at  the  level  for  which  this 
program  is  developed.  As  a  result,  the  literature  review 
serves  to  give  a  general  idea  of  some  of  the  parameters 
included  in  other  programs  and  models. 

Beyond  the  computer  models  currently  in  use,  the  author 
is  concerned  with  modeling  and  programming  in  general.  The 
type  of  model  to  be  constructed  had  to  be  determined,  as  did 
both  the  computer  and  programming  language  to  use. 

Model ino.  Research  involving  modeling  requires  some 
background  on  types  and  classification  of  models.  The 
models  reviewed  are  generally  either  Monte  Carlo  or  expected 
value  models.  The  difference  between  the  two  types  is  in  the 
manner  in  which  the  results  of  chance  events  are  determined. 
In  the  Monte  Carlo  model,  chance  events  are  handled  by 
drawing  random  numbers  from  a  distribution.  By  comparing 
these  numbers  with  a  previously  established  threshold,  a 
determination  of  the  consequences  or  results  of  a  particular 


action  is  mad*.  In  the  expected  value  model,  statistics  are 
gathered  and  the  results  of  a  particular  action  then  reflect 
an  expected  value,  such  as  a  number  o-f  aircraft  that  survive 
a  particular  attack.  Another  method  for  handling  chance 
events  uses  mathematical  analysis  to  deal  with  fluctuations 
in  the  statistics  used  for  the  expected  value  model. 
CSpecht,  1968:211]  The  Monte  Carlo  model  is  the  more  widely 
used  in  the  programs  reviewed  and  is  the  more  appropriate 
for  this  thesis.  The  choice  of  the  Monte  Carl  model 
reflects  the  objective  of  a  descriptive  model  for  training 
purposes.  Extensive  collection  of  classified  data  and  use 
of  these  statistics  for  the  results  of  the  air 
defense/aircraft  interactions  would  have  produced  a 
predictive  model,  one  from  which  real  world  conclusions 
could  be  drawn.  CBattilega  and  Grange,  1983]  This  is  not  an 
objective  and  is  not  permitted  in  the  time  allocated  to 
construct  a  model . 

Programming.  The  two  major  considerations  for 
programming  are  the  choice  of  computer  system  and  language. 
Computer  systems  available  to  the  author  and  expected  to  be 
available  in  the  near  future  to  potential  users  of  the 
program  were  reviewed.  The  computers  available  to  the 
author  in  the  school  environment  range  from  8-  and  16-bit 
micro-computers  to  DEC  VAX  mini -computers  and  a  CDC  CYBER. 
An  objective  for  the  thesis  is  to  develop  a  program  for  a 
micro-computer  and  the  author's  own  16-bit  system  is  a 


logical  choice  for  a  development  system.  Languages 
available  on  the  chc.-en  system  are  compiled  and  interpreted 
BASICs,  FORTRAN,  and  Pascal.  The  objective  of  portability 
for  the  program  caused  an  examination  of  standardization  of 
languages  so  that  the  program  would  be  compiler  or 
interpreter  independent.  The  subobjectives  of  modularity 
and  flexibility  in  the  program  are  considered  to  be  filled 
by  a  Pascal  program's  structured  design.  Pascal's 
availability,  standardization  and  structure  make  it  the 
language  of  choice  for  this  project.  [Hill,  ed,  19881. 
Further  research  on  Pascal  included  usage  [Jensen  and  Mirth, 
19741  and  implementation  [Barron,  ed.,  1981]  of  the 
1 anguage. 

The  user  interface,  and  specific  structures  for  naive 
users  are  of  concern  in  construction  of  a  program  for  those 
who  are  not  'computer  users'.  The  use  of  menus  is 
considered  to  be  the  best  method  for  the  interface  for  the 
untrained.  [Smith  and  Aucella,  1983]  The  type  and  amount  of 
information  to  display  on  a  screen  is  set  at  a  level  close 
to  that  of  the  most  ubiquitous  of  computer  terminals  used, 
the  bank  teller  machine.  [Rubinstein  and  Hersh,  1984]. 

Models  currently  in  use  are  reviewed  in  the  following 
sections.  Chapter  II  fully  explains  the  selection  of 
particular  parameters  for  the  model  under  construction. 

ADCDP .  The  Air  Defense  Capability  Development  Plan 
used  by  the  Teledyne  Corporation  is  designed  to  facilitate 
the  weapons  systems  acquisition  process.  The  model  consists 
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of  a  family  of  simulation  models  for  one-on-one,  many-on- 
one,  and  many-on-many  air  defense-aircraft  interactions. 
The  emphasis  of  the  models  is  on  changing  of  design  criteria 
and  examination  of  the  resultant  changes  in  engagement  and 
intercept  probabilities.  [Hays  and  Linton,  1974s 4- 13  The 
ability  to  change  program  parameters  and  examine  the  effects 
of  the  changes  is  considered  a  significant  characteristic 
for  the  program  under  development. 

DADENS.  The  Divisional  Air  Defense  Engagement 
Simulation  is  primarily  concerned  with  the  cammnand  and 
control  of  air  defense  systems,  yet  is  applicable  as  a 
reference  for  its  scope  and  use  of  the  Monte  Carlo 
technique.  The  simulation  includes  bombers,  fighters  and 
helicopters,  using  a  variety  of  attack  techniques  against 
both  ground  and  air-to-air  air  defense  systems.  The 
interactions  between  air  defense  system  and  aircraft  are 
influenced  by  the  terrain  and  electronic  counter-measures. 
CSemmens  et  al ,  1977:1-23 

STAGEM ■  The  Surf ace-To-Air  Gun  Effectiveness  Model  is 
a  simulation  relating  statistics  on  gun  performance  to  the 
probabi 1 i ty  of  kill.  Factors  considered  are  slew  rate, 
target  flight  path,  and  number  and  trajectories  of  the  gun's 
projectiles.  [Young  and  Solomon,  19773  The  parameters  for 
this  expected  value  model  are  considered  too  specific  for  a 
training  model . 


EVADE.  The  Evaluation  of  Air  Defense  Effectiveness  is 
a  FORTRAN  IV  program  currently  running  on  a  CDC  6600 
computer.  The  primary  emphasis  is  on  the  target  flight 
path,  and  resultant  vulnerability  of  an  aircraft  as  it 
becomes  unmasked  to  the  air  defense  weapon's  detection 
system.  While  multiple  aircraft  are  flown  over  numerous  air 
defense  systems,  the  results  returned  are  from  one-on-one 
engagements.  Attrition  on  both  systems  is  calculated. 
[Paris  et  al  ,  1974:viii3  The  one-on-one  engagements,  flight 
path  and  attrition  calculations  from  this  model  are 
pertinent  for  this  thesis. 

SHAPE  models.  The  models  in  use  at  the  Supreme 
Headquarters  Allied  Powers,  Europe,  evolved  from  several 
years'  work.  The  programs  combine  Monte  Carlo  and  expected 
value  models.  Both  FORTRAN  and  Pascal  subroutines  are  used 
in  a  very  detailed  description  of  air  defense/aircraft 
interactions.  Aircraft  specifics  include  flight  path, 
altitude,  angle  of  approach  and  angle  of  attack.  Air 
defense  systems  range  from  the  forward-area  systems  to 
medium-  and  long-range  systems  and  include  primary  detection 
means;  1 ine-of-si ght  for  radars;  Identification,  Friend  or 
Foe  <IFF)  systems;  and  electronic  counter-measures. 
[Wilhelm,  1979,1980,19811  This  model  provides  a  good  range 
of  aircraft  and  air  defense  system  characteristics.  This 
range  is  applicable  not  only  for  the  current  program 
construction  but  also  for  expansion  possibilities. 
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Mathematics.  With  the  selection  of  the  Monte  Carlo 
model  type,  random  number  generation  on  micro-computers 
became  an  issue.  The  most  widely  used  random  number 
generator  for  models  and  simulation,  the  linear  congruential 
pseudo-random  number  generator,  is  chosen.  [Banks  and 
Carson,  1984]  The  specific  number  for  the  modulus  operation 
and  initial  random  number  seed  are  significant  and  specific 
to  micro-computers.  CThesen  and  Wang,  1983]  Suitability 
tests  of  the  random  number  generator  include  the  Chi -squared 
test  for  frequency,  tests  for  runs  up  and  down  and  runs 
above  and  below  the  mean,  and  tests  for  periodicity.  [Banks 
and  Carson,  1984]. 

DUNN-KEMPF .  The  DUNN-KEMPF  war  game  is  a  pencil,  paper 
and  dice  simulation  developed  at  the  Combined  Arms  Center, 
Training  Developments  Activity,  Fort  Leavenworth,  Kansas. 
It  is  a  training  tool  designed  to  provide  instructors  and 
students  with  practice  in  tactics  and  techniques  of  company 
level  combat  operations.  One  aspect  of  the  simulation 
concerns  calculations  of  probabilities  of  engagement,  kill 
and  suppression  of  aircraft  with  dice  and  tables  of 
thresholds.  This  game  is  currently  in  use  at  the  U.S.  Army 
Air  Defense  Artillery  School  in  the  training  of  company 
grade  officers.  [Bolt6,  1977,  1982]  Adoption  of  this  game 
as  a  program  base  permits  the  program  to  be  integrated  in 


the  School 's  curriculum  with  ease 


Summary 


Once  the  decision  was  made  as  to  the  objectives  of  this 
thesis,  resources  and  current  systems  were  examined. 
Compiler  and  computer  availability  and  language  suitablity 
dictate  the  development  system.  A  modular  approach  is  taken 
to  both  model  and  program  development.  The  initial  step 
taken  in  development  of  the  computer  model  is  to  define 
which  characteristics  are  applicable  to  the  model  and  needed 
by  the  anticipated  user  of  the  program.  The  next  step  is  to 
determine  the  method  of  calculation  for  the  engagement 
results.  The  program  is  designed  by  modules  from  a  main 
program  shell  to  encompass  each  characteristic  selected. 
Mhen  the  program  is  completed  it  is  to  be  compiled  and  run 
on  four  different  computer  systems  using  three  distinctly 
different  Pascal  compilers. 

Presentation 

Fully  developed  in  succeeding  chapters  are  the 
characteristics  of  the  program  and  the  parameters  chosen  for 
the  model.  The  methodology  used  in  the  development  of  both 
the  model  and  the  program  is  covered  in  Chapter  II. 
Specifically  covered  are  the  language  and  hardware  selection 
and  restrictions,  program  parameter  considerations  and 
probability  calculations.  Chapter  III  includes  the 
specifics  about  program  construction,  data  types,  flow  and 
size.  Use  of  the  program  with  different  compilers,  possible 
error  areas,  verification  of  the  program  and  validation  of 


1 1 .  Methodol oqv 

The  Air  Defense  War game  Support  Program  is  intended  for 
use  at  the  U.S.  Army  Air  Defense  Artillery  School.  A 
training  vehicle  currently  in  use  at  the  School  is  used  as 
the  base  for  a  program  to  replace  tedious  paper-and-penci 1 
cal cul ations. 

Model  Description 

The  model  constructed  in  the  Air  Defense  Margame 
Support  Program  is  a  simplified  representation  of  the 
interaction  between  an  aircraft  and  a  forward-area  air 
defense  artillery  system.  The  purpose  of  the  model  is  to 
provide  the  results  of  that  interaction,  results  that  may  be 
used,  as  the  program  name  suggests,  to  support  larger  war 
games,  or  the  training  of  air  defenders.  The  model  is 
designed  with  the  purpose  of  saving  time  for  the  users  and 
providing  a  standard  method  of  probabi 1 i ty  calculations  for 
various  Army  commands.  It  is  intended  primarily  to  replace 
the  current  dice  rolling  and  paper  table  look-up  methods 
currently  in  use  at  the  U.S.  Army  Air  Defense  Artillery 
School  and  in  the  forward-area  weapons  battalions  of  the 
Army.  The  model  is  a  descriptive  micro  simulation  of  a  one- 
on-one  engagement  and  is  not  designed  to  be  predictive  of 
the  results  that  would  occur  in  actual  combat.  As  a  result, 


the  model  is  extremely  restrictive  in  the  parameters  and  the 
number  of  variables  used  and  the  results  that  are  generated. 


With  these  restrictions  in  mind,  the  Air  Defense  War game 
Support  Program  is  property  designated  computer-assisted 
wargaming  and  not  modeling.  [Battilega  and  Grange, 
1984s 14,25] 

The  methodologies  which  are  available  to  provide  a 
basis  for  this  model  involve  conversion  of  current  computer 
or  paper  systems  to  a  mi cro-computer  model.  The  conversion 
and  expansion  of  the  current  paper-and-penc i 1  models  would 
be  of  greater  utility  to  the  training  of  junior  officers  at 
the  Air  Defense  Center.  A  model  so  constructed  could  be 
integrated  in  the  present  course  of  instruction  for  junior 
officers  with  ease.  A  more  difficult  and  comprehensive 
project  is  the  conversion  of  a  mainframe  computer  model  such 
as  INCURSION  for  a  micro-computer.  This  is  not  considered 
for  this  thesis  project  because  of  the  time  constraints  for 
program  and  thesis  completion.  Conversion  of  a  model  of 
this  size  and  type  generally  involves  classified  data  which 
limits  the  use  of  the  model  and  program  in  training 
environments. 

Unclassified  data  for  the  Air  Defense  Center  model 
conversions  are  available  from  the  Tactics  Department  at  the 
school  in  Fort  Bliss,  Texas;  and  it  is  from  this  data  that 
the  model  is  constructed. 


Parameter  Considerations 

Different  characteristics  or  parameters  of  the  air 
defense  problem  may  be  specified  in  the  models  reviewed 
previously.  The  number  and  range  o-f  the  parameters  that  can 
be  varied  is  restricted  by  the  size  o-f  the  computer,  as  each 
parameter  must  be  determined  by  either  an  equation  or  a  data 
base.  The  -following  parameters  were  selected  as  essential 
either  -for  basic  description  o-f  the  situation  or  the 
engagemen  t : 

1.  Air  Defense  system:  Vulcan,  S6T  York,  Redeye, 
Stinger,  Chaparral 

2.  Location:  European,  desert,  jungle 

3.  Effectiveness  level  of  the  air  defense  system 

4.  Aircraft  type:  fighter,  transport,  helicopter 

5.  Aircraft  tactic:  pop-up,  lay-down,  fly-over 

6.  Aircraft  aspect:  head-on,  crossing,  tail. 

These  parameters  are  described  in  the  following  paragraphs. 

Air  Defense  System.  As  this  model  is  designed  to 
support  the  near-future  inventory  of  the  U.S.  Army, 
statistics  in  the  model  provide  all  the  current  active  Army 
air  defense  weapons:  the  Sergeant  York  <DIVAD>  40mm  twin- 
barrel  gun,  the  improved  Chaparral  infrared-seeking  missile, 
the  shoulder-fired,  infrared-seeking  Stinger  missile,  the 
20mm  Vulcan  cannon  and  the  Redeye  missile. 

Location.  Since  the  characteristic  probability  of 
detection  and  kill  of  an  air  defense  system  is  affected  by 
the  area  in  which  the  system  is  deployed,  the  general  area 
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of  deployment  may  be  specified.  The  three  major  scenarios 
modelled  are  the  European,  the  desert,  and  the  jungle. 
These  are  the  three  scenarios  generally  trained  for  and 
simulated  in  the  military. 


Effectiveness 


il.  The  effectiveness  level  for  the 


air  defense  system  is  designed  to  include  in  the  model  those 
characteristics  of  the  air  defense  system  that  are  difficult 
to  quantify.  These  include  the  human  factors  such  as  the 
manning  strength,  alertness  and  disposition  of  the  system 
squad.  Additionally,  the  effectiveness  level  can  reflect 
the  maintenance  status  of  the  equipment  and  any  attrition 
suffered  by  the  air  defense  unit  in  an  engagement. 

Aircraft  Type.  There  are  two  general  attack 
characteristics  that  will  affect  the  probabilities  of 
engagement  and  kill  for  this  model:  type  of  aircraft  and 
type  of  attack.  The  aircraft  types  and  related  speeds  «ai 
be  generalized  to  high-performance  (fighters  and  close  air 
support),  planes  (transports  and  reconnaissance)  and 
helicopters.  These  categories  reflect  current  Army  Air 
Defense  Artillery  doctrine.  IFM  44-  series) 

Aircraft  Tactic.  Attack  types  include  the  tactics  of 
pop-up  attack,  lay-down  bombing  runs  and  flying  over  the 
defending  weapons  system.  Army  Air  Defense  Artillery 
doctrine  considers  these  tactics  as  the  most  likely  to  be 
seen  on  a  battlefield.  CFM  44-  series) 


Aircraft  Aspect.  The  aspect  angle  or  profile  that  the 
aircraft  presents  to  the  air  defense  system  is  part  of  its 
attack  characteristic.  The  aspect  angle  and  profile 
determine  the  visible  cross-sectional  area  which  most 
influences  an  engagement  for  a  forward-area  weapon.  When, 
as  for  the  systems  modelled,  human  sight  is  the  primary 
detection  and  fire  control  means,  the  degree  to  which  the 
aircraft  is  exposed  is  as  important  as  the  length  of  time  it 
is  visible.  The  importance  of  the  aircraft  aspect  is 
covered  extensively  in  Army  Air  Defense  Artillery  Field 
Manuals  on  weapon  system  characteristics  and  employment 
principles.  Army  Air  Defense  Artillery  training  routinely 
includes  cards  and  slides  of  threat  aircraft  depicting  the 
three  main  profiles  of  an  aircrafts  front,  side  and  rear. 

Probability  Calculations 

The  probability  calculations  are  a  direct  conversion  of 
the  DUNN-KEMPF  tables  used  at  the  Army  Air  Defense  Artillery 
School.  The  program  values  for  engagement  and  effect 
probabilities  are  listed  in  Appendix  G. 

The  results  of  an  interaction  between  an  Air  Defense 
Unit  and  an  Aircraft  are  determined  by  comparing  a  program 
generated  random  number  with  calculated  threshold  values. 
Postive  results  from  an  action  are  returned  if  the  random 
number  is  less  than  the  threshold;  so  if  the  threshold  for 


the  probability  of  engagement  is  65  and  a  random  number  of 
50  is  returned,  then  the  aircraft  is  considered  engaged. 


Random  numbers  are  generated  -for  each  of  the  engagement, 
kill,  suppression  and  attrition  results.  Threshold  values 
are  calculated  separately  for  the  probabilities  of 
engagement  and  kill.  The  threshold  values  are  calculated  by 
multiplying  a  base  value  by  the  series  of  factors  reflecting 
the  descriptions  of  the  Air  Defense  Unit  and  the  Aircraft. 
The  displayed  results  of  an  engagement  include  whether  the 
aircraft  is  engaged,  whether  the  aircraft  is  hit  and 
destroyed  or  mission  suppressed,  and  whether  the  air  defense 
system  suffers  any  attrition  from  an  aircraft  that  was 
engaged  but  not  destroyed  or  suppressed.  Attrition  on  an 
air  defense  unit  is  reflected  by  a  lowering  of  the  unit's 
effectiveness  level  by  the  amount  of  the  attrition  factor. 

Parameter  Factors.  The  parameter  factors  in  the 
program  are  the  most  subjective  aspect  of  the  model ,  and  for 
that  reason  all  of  them  may  be  changed  by  the  user.  In 
general ,  consideration  is  made  of  what  impact  each  parameter 
has  on  an  actual  engagement  between  an  air  defense  artillery 
system  and  the  type  of  aircraft  to  be  engaged.  The  relative 
values  for  each  factor  are  based  on  the  degree  to  which  that 
air  defense  unit  or  aircraft  characteristic  would  affect  the 
actual  engagement  with  the  rank  ordering  based  on  air 
defense  system  capabilities  documented  in  the  appropriate 
Army  Field  Manuals.  For  the  location  factor,  the  desert  is 
the  optimal  air  defense  environment  and  the  jungle  is  the 
worst,  while  the  European  location  provides  a  neutral 
environment  (neither  very  good  or  very  bad).  These 


assessments  are  based  on  the  -fact  that  the  primary  detection 
and  -fire  control  mechanism  -for  the  -forward-area  air  de-fense 


artillery  systems  is  human  sight.  For  the  tactic  -factor, 
the  highest  value  is  -for  the  -fly-over  tactic  based  on  the 
concept  that  that  tactic  results  in  the  greatest  aircra-ft 
exposure  time  to  the  air  de-fense  system;  while  a  pop-up 
tactic  results  in  the  least  exposure  time,  and  a  lay-down 
tactic  provides  a  median  value.  The  aspect  factor  reflects 
the  engagement  difficulty  of  a  particular  cross-sectional 
area  exposure  of  the  aircraft.  For  the  initial  values  in 
the  program,  the  head-on  and  tail  shots  are  considered  to  be 
of  approximately  the  same  difficulty,  and  the  crossing 
aspect  is  considered  to  enhance  the  engagement  for  the  air 
defense  system.  Again,  this  rank  ordering  reflects  the 
actual  system  capabilities. 

Enoaoement  Thresholds.  The  engagement  thresholds  are 
calculated  from  a  probability  of  engagement  base  value 
multiplied  by  the  values  reflecting  the  description  of  the 
air  defense  unit  and  the  aircraft.  The  base  value  is 
derived  from  the  probability  of  engagement  table  from  the 
war  game  DUNN-KEMPF.  The  DUNN-KEMPF  tables  cover  Vulcan, 
Redeye  and  Chaparral  engagements  and  are  expanded  to  include 
the  SGT  York  gun  and  the  Stinger  by  increasing  the  Vulcan 
and  Redeye  figures  respectively  by  an  arbitrary  10  per  cent 
to  reflect  the  more  modern  systems'  improved  engagement 
capabilities.  The  specific  base  values  for  the  engagement 


threshold  used  are  dependent  on  the  air  defense  unit  type 
and  aircraft  type. 


The  factors  by  which  the  base  value  is  multiplied  are 
dependent  on  the  air  defense  and  aircraft  types  in  a  similar 
manner.  The  location  factors  are  dependent  the  air  defense 
unit  type  and  location;  for  the  tactic  factor  array  the 
aircraft  type  and  tactic  determine  the  value;  the  aspect 
factor  is  dependent  on  the  aircraft  type  and  aspect.  The 
final  step  in  calculation  of  the  threshold  is  the 
multiplication  of  the  base  and  factor  product  by  the  air 
defense  unit  effectiveness  level  and  a  scaling  factor  of 

iee. 

This  resul ts  in 

Engagement 

Threshold  =  (Probability  of  Engagement  Base  Value) 

X  (Location  Factor)  X  (Tactic  Factor) 

X  (Aspect  Factor)  X  (Effectiveness  Level) 

X  108  [1] 

The  determination  of  aircraft  engagement  is  made  by 

generating  a  random  number  between  1  and  100  and  comparing 

the  random  number  with  the  calculated  threshold  value.  If 

the  random  number  is  less  than  the  threshold,  the  aircraft 

is  considered  to  have  been  engaged  by  the  air  defense  unit 

and  calculations  for  the  probability  of  hit  are  done. 

Hit  Thresholds.  The  probability  of  hit  thresholds  are 
calculated  in  the  same  manner  as  are  the  engagement 
thresholds.  The  probabi 1 i ty  of  hit  base  value  table  is 
constructed  from  the  DUNN-KEMPF  tables  as  is  the  probability 
of  engagement  base  value  table.  The  dependencies  for  each 


of  the  factor  values  are  the  same  as  for  the  engagement 
threshold.  This  results  in 


Hi  t 

Threshold  *  (Probability  of  Hit  Base  Value) 

*  (Location  Factor)  X  (Tactic  Factor) 

X  (Aspect  Factor)  X  (Effectiveness  Level) 

X  106  [21 

Whether  or  not  an  aircraft  is  hit  is  determined  by  the 

generation  of  a  random  number  and  comparison  with  the 

calculated  probability  of  hit  threshold.  If  the  random 

number  is  less  than  the  threshold,  then  the  aircraft  is 

considered  to  have  been  hit  by  the  air  defense  unit,  and  the 

determination  of  aircraft  suppression  is  made  by  another 

random  number  calculation.  If  the  aircraft  is  not  hit,  then 

a  determination  of  air  defense  unit  attrition  is  made. 

Suppression .  Suppression  refers  to  the  damage  level 
incurred  by  the  aircraft.  The  basic  mission  of  Army  air 
defense  is  to  destroy  or  nullify  the  threat.  CFM  44-seriesI 
For  the  purposes  of  the  program,  if  an  aircraft  is  hit,  then 
it  is  either  destroyed  or  its  mission  is  aborted.  The 
determination  of  aircraft  suppression  is  made  by  comparison 
of  the  program's  probability  of  suppression  with  a  generated 
random  number.  The  probability  of  suppression  is  set  in  the 
program  at  50  per  cent  but,  may  be  changed  by  the  user.  The 
50  per  cent  level  reflects  a  basic  coin  toss  as  to  whether 
the  aircraft  is  suppressed.  If  the  random  number  generated 


-for  the  determination  of  aircraft  suppression  is  greater 
than  the  probability  of  suppression,  then  the  aircraft  is 
considered  to  have  been  suppressed,  otherwise  the  aircraft 
is  considered  destroyed. 

Attrition.  Attrition  refers  to  any  damage  inflicted  on 
the  air  defense  system  by  an  aircraft  that  is  not  hit.  The 
determination  of  air  defense  unit  attrition  is  made  only  if 
the  aircraft  is  engaged  but  not  hit.  This  reflects  the  real 
world  situation  that  a  forward-area  air  defense  system  is 
not  normally  exposed  unless  it  fires  and  revi5  s  its 
position.  [Ri  44-  series!  If  an  aircraft  is  not  engaged  then 
the  air  defense  system  does  not  reveal  its  position  to  draw 
fire  from  the  aircraft.  An  aircraft  that  is  fired  on  and  not 
suppressed  is  free  to  attack  the  air  defense  system  and 
cause  damage  and  attrition.  Determination  of  attrition  is 
made  by  comparison  of  the  probability  of  attrition  with  a 
generated  random  number.  The  probability  of  attrition  is 
set  in  the  program  at  50  per  cent,  but  may  be  changed  by  the 
user.  The  50  per  cent  level  reflects  a  basic  coin  toss  as 
to  whether  the  air  defense  system  is  attrited.  If  the 
random  number  generated  for  the  determination  of  air  defense 
unit  attrition  is  greater  than  the  probability  of  attrition, 
then  attrition  is  effected  by  subtracting  the  program 
attrition  factor  from  the  air  defense  unit's  effectiveness 


Random  Number  Generation 

Method.  The  random  number  generator  is  designed  for  a 
micro-computer,  but  provides  the  required  numbers  on  larger 
systems  as  well.  A  simple  function  implements  a  linear 
congruential  pseudo-random  number  generator.  This  random 
number  generator  is  the  one  most  widely  used  in  simulation 
and  modeling.  [Banks  and  Carson,  1984:2591  Each  random 
number  generated  serves  as  the  basis  -for  the  next.  The 
linear  congruential  generator  is  of  the  form 

ICi+11  =  <a  X  ICiJ  ♦  1)  mod  MAXINT  [31 

where 

a  «  k  X  4  ♦  1  k  =  0,1,2...  [41 
and  MAXINT  is  implementation  dependent.  Certain  values  of  a 
provide  better  sequences  of  random  numbers  for  micro¬ 
computers,  some  of  these  are  specified  in  the  program 
comments.  [Thesen  and  Mang,  1983:81 

Range.  The  linear  congruential  generator  provides  for 
a  uniform  distribution  of  random  numbers.  This  emulates  the 
uniform  distribution  of  numbers  resulting  from  the  roll  of  a 
die.  The  random  numbers  returned  by  the  equation  itself 
range  from  0  to  MAXINT,  these  are  scaled  in  the  program  to 
the  range  1  to  100  for  ease  of  comparison. 

Tests.  Separate  programs  were  run  with  the  random 
number  generator  to  determine  the  period  and  "random-ness* 
of  the  generator.  The  period  is  32763  numbers  generated 
before  a  repetitive  sequence  is  encountered  on  the 
development  system.  Chi -Squared  tests  for  frequency  were 


made  with  satisfactory  results.  Tests  for  runs  up  and  down 


and  runs  above  and  below  the  mean  value  of  30  were  also  made 


with  satisfactory  results.  [Banks  and  Carson,  1784:271-278] 
Specific  test  results  are  found  in  Appendix  F. 

Programming  Considerations 

The  major  programming  considerations  are  the  type  of 
computer  system  used  and  the  language  in  which  the  model  is 
constructed. 

Hardware.  The  restriction  of  the  model  to  a  micro¬ 
computer  limits  the  memory  for  the  main  program  to  64 
thousand  (64K)  bytes  which,  is  the  common  minimal  micro¬ 
computer  configuration  at  the  time  of  writing.  The  memory 
limitation  impacts  on  the  method  used  for  calculating 
results  of  engagements.  Studies  have  determined  that 
modeling  using  the  Lanchester  equations  is  possible  on  the 
micro-computer  [Callahan  and  Crosby,  1981],  but  the  use  of 
these  complex  equations  is  beyond  the  scope  of  this  program 
and  model.  A  simpler  relation  of  aircraft  and  air  defense 
system  characteristics  to  internal  data  arrays  is  used. 

Sof tware.  There  are  numerous  programming  languages 
available  for  micro-computers,  including  high-level 
simulation  languages.  The  Teledyne  models,  which  bear  the 
closest  resemblance  to  the  developed  model,  are  written  in 
BASIC.  While  BASIC  has  the  advantage  of  straightforward  and 
simple  programming,  it  is  restricted  in  its  abilities  to 
deal  with  complex  models  and  does  not  lend  itself  to  memory 
conservation.  Additionally,  micro-computer  versions  of 


BASIC  -frequently  are  very  specific  to  the  hardware  in  the 
computer  system  for  which  they  are  designed  and  may  rely  on 
software  residiti.  in  read-only  memory,  as  does  IBM  BASIC. 
Those  characteristics  restrict  the  portability  of  programs 
written  in  BASIC.  FORTRAN  is  available  for  micro-computers 
and  has  the  advantage  of  being  widely  used  for  modeling,  but 
is  not  considered  one  of  the  simplest  languages  in  which  to 
program.  FORTRAN'S  lack  of  standardization  (Hill,  ed., 
1980]  restricts  program  portability.  Pascal  is  another 
high-level  language  that  is  readily  available  for  micro¬ 
computers  and  has  been  used  for  military  modeling. 

During  selection  of  a  programming  language,  compiler 
availability  had  to  be  considered.  A  survey  of  the  computer 
systems  available  to  the  writer  in  the  school  environment 
showed  five  different  Pascal  compilers  running  on  seven 
different  operating  systems  and  computers  ranging  from  TURBO 
Pascal  on  64K  Kaypro  and  HeathKit  computers  to  Pascal  6000 
running  on  a  CDC  Cyber.  This  compiler  variety  became  a 
major  factor  in  the  attempt  to  make  a  highly  portable 
program.  Pascal  was  selected  for  its  availability  and  ease 
of  programming  even  complex  models.  Pascal  enables  the 
development  of  a  large  model  or  program  in  modules.  This 
eases  program  construction  and  enhances  program  maintenance. 
An  additional  advantage  to  the  use  of  Pascal  is  its 
similarity  to  Ada,  the  chosen  programming  language  for  the 
Department  of  Defense.  Standardization  of  the  language  is 
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also  considered.  Research  shows  that  aside  from  Ada  with 
its  Department  of  Defense  dictated  standards,  Pascal  come* 
the  closest  to  having  a  "standard"  instruction  set.  C Hi  1 1 , 
ed.,  19803  Ada  itself  was  not  chosen  because  of  its  limited 
availability  on  micro-computers  at  the  time  of  writing. 


III.  Imp! ementation 


This  chapter  examines  the  structure,  development  and 
tests  of  the  Air  Defense  War  Game  Support  Program.  The 
characteristics  of  the  development,  the  portability  tests  of 
the  program,  and  the  computer  systems  used  are  reviewed  and 
findings  discussed.  Verification  of  the  program  flow  and 
validation  of  the  program  results  are  also  covered. 


Overview 

The  Air  Defense  War  Game  Support  Program  consists  of 
approximately  2500  lines  of  standard  Pascal  code  that 
provide  the  user  with  the  results  of  a  modelled  engagement 
between  a  U.S.  Army  Air  Defense  Artillery  system  and  an 
aircraft.  It  is  highly  transportable  to  a  variety  of  Pascal 
compilers,  operating  systems  and  terminal  types.  A  strictly 
modular  design  eases  replacement  of  procedures  and  permits 
substantial  program  modification  with  a  minimum  of 
undesirable  side  effects.  Program  modifications  are  also 
facilitated  by  use  of  Pascal  types  and  constants.  The  user 
interface  to  the  program  is  menu  driven  and  requires  only  a 
minimum  of  Keyboard  input. 


Detailed  Description 

Structure.  The  program  is  designed  with  the  top-down 
programming  approach.  Menu  selection  provides  the  method  to 
control  program  flow  for  users  who  may  not  be  "computer- 


oriented".  The  initial  decision  was  made  that  the  main 


i 
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program  would  consist  of  a  loop  with  a  single  control 
variable  that  determined  the  next  procedure  to  be  called. 
The  resultant  shell  program  gives  the  capability  to  call 
the  major  menu  procedures  and  additional  procedures  that 
branch  -from  the  major  menu  procedures.  The  single  main 
program  loop  permits  interaction  between  menus  that  would 
not  be  possible  i-f  each  set  of  procedures  for  a  specific 
menu  was  isolated  in  a  separate  loop.  This  structure 
permits  the  exit  to  a  higher  level  menu  without  stepping 
through  each  of  the  intervening  menus,  but  does  add  to  the 
complexity  of  the  program.  There  are  six  major  menus  that 
access  20  main  program  procedures  and  12  support  procedures. 

Main  Program  Procedures.  The  six  major  groupings  of 
main  program  procedures  deal  with  Main  Menu  operations,  Air 
Defense  Unit  operations.  Aircraft  operations,  and  three  sets 
of  Parameter  Menu  operations.  The  main  menu  transfers 
control  to  the  other  menu  groups;  the  air  defense  unit  and 
aircraft  operations  are  concerned  with  the  describing, 
listing  and  file  input/output  operations  with  the  respective 
data  arrays.  The  parameter  menus  permit  the  listing, 
changing  and  file  input/output  operations  for  the  model 
parameter  factor  and  probability  tables. 

Menus  provided  by  numerous  procedures  are  in  a  standard 
format  of  a  labeled  vertical  list  of  five  choices.  The 
number  of  choices  is  restricted  to  five  to  minimize  the 


amount  of  information  a  novice  user  must  read  prior  to  being 


able  to  make  a  choice.  [Rubinstein  and  Hersh,  1984:119-1213 


1  The  limit  of  -five  displayed  choices  means  that  help  screens, 

a  sixth  option  from  the  commmand  line,  are  not  available  in 
screens  that  need  the  sixth  option  in  order  to  exit  the 
'  menu.  Each  menu  has  the  most  frequently  selected  codes 

listed  first  and  requires  a  single  alphabetic  key  entry  to 
proceed.  Keys  required  for  menu  selection  are  consistently 
1  A  thru  E,  H  and  X,  in  either  upper  or  lower  case.  This 

standard  menu  form  is  adhered  to  throughout  the  program  as 
an  implementation  of  user-system  interface  <USI)  standards. 
These  standards  cover  the  use,  size  and  construction  of  menu 
driven  programs.  The  particular  menu  and  command  structure 
used  is  designed  for  untrained  users.  [Smith  and  Aucella, 

I  1983:118-1393 

Support  Procedures.  The  support  procedures  include 
procedures  to  clear  the  screen,  to  write  the  program  name  or 
^  a  screen  title,  to  provide  random  numbers  and  to  solicit  the 

user  for  specific  responses  needed  by  main  program 
procedures.  In  these  procedures,  specific  efforts  made  to 
adhere  to  standard  Pascal  result  in  some  loss  of  efficiency 
and  programming  aesthetics,  notably  in  the  screen  clearing 
procedure  which  simply  scrolls  previous  information  off  the 


screen 


Constants  and  Types.  Program  changing  and  maintenance 
are  -facilitated  by  use  of  Pascal  constants  and  types.  This 
permits  changing  of  values  throughout  the  program  without 
having  to  change  each  occurrence  of  a  variable,  constant  or 
type,  by  placing  the  new  value  once  in  the  program 
declarations  section.  Constants  are  used  to  dimension  the 
data  arrays.  Other  specific  constants  include  the  initial 
values  for: 

-  the  random  number  stream 

-  attrition  factor 

-  probabilities  of  attrition  and  suppression 
and  the  maximum  values  for: 

-  the  number  of  air  defense  units  and  aircraft 

-  types  and  locations  for  air  defense  units 

-  types,  tactics  and  aspects  of  aircraft. 

Specific  Pascal  types  include  record  structures  for  the 
descriptions  of  the  air  defense  unit  and  aircraft.  These 
records  are  maintained  in  single-dimension  arrays  of  those 
records.  Each  record  contains  a  boolean  field,  'Isactive', 
to  indicate  whether  a  description  has  been  entered.  This 
field  is  used  in  the  procedures  that  verify  an  user-entered 
unit  or  aircraft  number,  and  in  procedures  that  display 
lists  of  the  currently  entered  descriptions.  Each  record 
contains  integer  fields  that  are  used  as  indexes  to  the  data 
arrays.  The  air  defense  unit  record,  'ADRECORD' ,  contains 
integer  fields  for  the  unit  'Kind7  and  'Location"  and  an 
effectiveness  level  field,  'Ef f ectl evel " ,  of  type  real.  The 


aircraft  record,  'ACRECORD'  contains  integer  fields  for 
'Sort",  'Tactic'  and  'Aspect'.  A  particular  data  array 
element  is  then  specified  by  use  of  the  integer  fields  as 
indexes.  Type  specifications  are  used  for  the  two-dimension 
data  arrays  of  factors  and  for  a  single-dimension  data  array 
of  the  character  strings  used  to  describe  each  of  the 
factors.  Examples  of  each  are  provided  in  the  next  section. 
The  use  of  the  record  structure  for  the  air  defense  unit  and 
aircraft  permits  the  expansion  of  the  descriptions  of  each 
with  additional  characteristics.  The  use  of  arrays 
dimensioned  by  constants  permits  a  similar  expansion  for 
more  air  defense  units,  aircraft  or  descriptive  factors. 

Data  Arrays.  The  data  arrays  in  the  program  are 
classified  as  variable  data  arrays,  descriptive  arrays  or 
factor  arrays.  The  key  data  manipulated  by  the  user  are  the 
variable  data  arrays  of  air  defense  units  and  aircraft 
records.  These  arrays  of  records  are  modified  in  the  'Enter 
Description'  procedures  and  referenced  during  engagements 
for  indexes  to  the  factor  arrays.  The  indexes  in  the 
records  are  also  used  as  indexes  to  the  descriptive  arrays. 
The  descriptive  arrays  are  arrays  of  character  strings, 
providing  textual  descriptions  of  specific  air  defense  unit 
or  aircraft  characteristics.  Thus,  for  air  defense  system 
'Kind'  with  the  value  1,  the  array  element  AdunittKindl 
returns  the  string  "Vulcan".  The  two-dimensional  factor 


arrays  contain  the  values  for  the  calculation  of  the 


probabilities  of  engagement  and  hit  thresholds.  Using 


the 

fields  of 

the 

'ADRECORD'  and  'ACRECORD' 

as  indexes, 

the 

probability  of 

engagement  base  value  of 

a  'Kind' 

of 

air 

defense 

system  against  a  'Sort'  of 

aircraft 

is 

PEBaseCKind, 

Sort] 

,  the  location  factor 

for  an 

air 

defense  unit  is  PI acefactCKind,  Location]  and  the  tactic 
factor  of  an  aircraft  is  TactifactfSort,  Tactic]. 
Elements  in  the  factor  arrays  may  be  set  by  the  user, 
while  changing  the  descriptive  array  elements  must  be 
done  by  a  programmer.  Default  values  for  the  descriptive 
and  factor  arrays  are  in  Appendix  6. 

Program  Flow 

There  is  no  prescribed  program  flow  because  the 
program  is  menu  driven,  and  cross-travel  is  permitted 
between  levels  of  menus.  The  main  program  consists  of  a 
repetitive  case  statement  with  single  entry  and  exit 
points.  The  main  menu  provides  access  to  three  other 
menus,  each  of  which  calls  at  least  one  other  menu.  The 
general  program  flow  as  seen  by  the  user  would  be  from 
the  Main  Menu  to  the  Air  Defense  Menu,  from  the  Main  Menu 
to  the  Aircraft  Menu  and  then  from  the  Main  Menu  to  the 


Engagement  procedure.  At  any  point  any  of  the  other 
menus  may  be  used  to  change  or  list  data  used.  A  sample 
session  is  included  as  Appendix  8. 


•  J  • 


The  development  system  ■for  this  thesis  is  the  NEC 
Advanced  Personal  Computer  (ARC)  using  TURBO  Pascal 
version  2.0  under  the  CP/M-8 6  operating  system.  The  A PC 
uses  the  16-bit  8086  microprocessor.  The  program  source 
code  is  approximately  60  thousand  (60K)  8-bit  bytes  on  a 
double  density  disk,  while  the  executable  machine  code  is 
approximately  34K  bytes.  Compiler  restrictions  on  the 
amount  o-f  source  code  require  that  the  program  be  broken 
into  separate  -files  which  are  compiled  as  "include"  -files 
from  a  single  program  file.  The  most  efficient  way  to 
structure  the  program  is  to  make  a  separate  file  for  each 
of  the  lettered  procedures  called  from  the  main  program. 
This  simplifies  editing  and  compiling. 

While  the  TURBO  Pascal  compiler  supports  many  non¬ 
standard  features,  it  does  not  support  the  'standard' 
Pascal  functions  GET  and  PUT,  used  for  input  and  output 
<I/0>  of  variables  of  user-defined  types.  External  file 
operations  require  non-standard  functions  that  are 
specific  to  the  compiler  and  operating  system  used.  As 
a  consequence,  the  program  as  written  supports  no 
external  file  I/O.  Discussion  of  the  I/O  problems  and 
possible  solutions  are  provided  in  a  later  section. 
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Portability,  -for  the  purpose  of  this  thesis,  means  that 
the  source  code  and  program  are  machine,  Pascal  compiler  and 
operating  system  independent.  The  first  test  of  the  program 
on  another  compiler  was  with  Berkeley  Pascal  version  2.0 
under  the  UNIX  <7th  Edition)  operating  system  running  on  a 
DEC  V)AX  11/780  minicomputer.  Berkeley  Pascal  has  a  compiler 
option  that  generates  warning  flags  for  non-standard  Pascal 
programming.  This  option  was  used  extensively  during  the 
development  of  the  program,  though  it  should  be  noted  that 
the  non-standard  use  of  I/O  of  typed  variables  was  not 
flagged  as  expected.  The  full  program  was  also  run  from 
Apple  Pascal  on  an  Apple  lie  and  TURBO  Pascal  under  CP/M-80 
on  a  Kaypro  microcomputer  with  an  8-bit  8080  microprocessor. 
The  source  code  for  each  of  the  test  systems  was  the  same. 
The  major  problem  that  was  identified  during  these  tests  was 
a  restriction  on  the  maximum  size  of  a  single  procedure. 
Particularly  for  the  Apple  Pascal  compiler,  long  procedures 
(75  to  100  lines)  had  to  be  separated  into  smaller 
procedures.  Another  problem  identified  on  the  Apple  system 
was  the  requirement  for  procedure  and  variable  names  to  be 
unique  in  the  first  eight  characters.  These  Apple  Pascal 
requirements  resulted  in  increased  modularity  for  the 
program  and  procedure  names  of  various  lengths  that  are 


unique  in  the  first  eight  characters. 


Files 


transported  from  one  computer  to  another  by  modem. 


were 


The  aspect  of  Pascal  that  most  restricts  portability  is 
input/output  to  files  and  to  the  standard  I/O  devices 
(terminals  in  the  case  of  microcomputers) .  CLecarme, 
1982:243  For  this  reason,  implementation  of  file  I/O  is 
left  to  the  programmer.  Included  as  Appendix  E  are  'Spare 
Part'  procedures,  labeled  by  system,  for  a  variety  of 
compilers  that  enable  file  I/O.  The  specific  uses  for  files 
are  to  save  and  restore  the  descriptive  data  for  the  Air 
Defense  Unit  and  Aircraft  arrays.  The  factor  data  may  also 
be  saved  to  or  restored  from  files  if  those  procedures  are 
replaced.  These  'Spare  Part'  procedures  perform  identical 
functions  on  different  systems  and  are  designed  for  simple 
substitution  in  the  source  code.  IGilb,  1982:2133. 

Character  I/O  differences  were  noted  in  some  of  the 
systems  tested.  To  insure  portability  to  a  variety  of 
terminals,  all  output  is  restricted  to  40  characters  per 
line.  Differences  in  the  formatting  of  output  has  the  minor 
result  of  mis-aligning  data  displayed  in  tabular  form.  This 
was  not  a  significant  problem.  Character  input  differences 
are  more  important.  Major  differences  in  the  I/O  routines 
for  each  compiler  mean  that  input  routines  with  minimal 
error  checking  are  used. 


Ideal  error  handling  -for  a  novice  user  in  this  program 
would  include  procedures  for  trapping  input  in  the  wrong 
range  or  of  the  wrong  type.  Alphanumeric  range  checking  is 
implemented  where  necessary  and  the  user  is  re-prompted  for 
input.  Type  checking  is  not  implemented,  as  explained  in 
the  next  paragraph. 

As  noted  above,  the  differences  in  the  I/O  routines  for 
various  compilers  force  minimal  error  checking  in  some  of 
the  input  procedures.  The  differences  noted  involved  I/O 
buffering  and  interpretations  of  the  Pascal  end-of-line 
function.  Those  differences  prevent  the  implementation  of  a 
procedure  to  interpret  all  input  as  characters  to  be 
converted  to  the  appropriate  type.  Attention  should  be  paid 
to  those  procedures  requiring  numeric  entry.  Range  checking 
and  conversion  to  integer  form  is  performed  if  a  number  in  a 
real  format  is  entered  when  an  integer  is  expected. 
However,  if  an  alphabetic  character  is  entered  when  the 
program  is  expecting  numeric  input,  the  program  aborts.  All 
alphabetic  input  is  filtered  so  that  either  upper  or  lower 
case  may  be  used.  Looping  in  the  routines  for  alphabetic 
input  causes  the  prompt  to  be  reprinted  until  a  valid  letter 
is  entered.  On  the  UNIX  version  of  the  program,  buffering 
of  the  input  causes  invalid  letters  typed  in  response  to  a 
prompt  to  be  ignored.  The  program  halts  until  an 
appropriate  letter  is  typed.  On  other  systems,  the  prompt 
is  reprinted  as  soon  as  an  invalid  letter  is  entered. 


Program  -flow  tests  were  conducted  by  extensive  use  of 
the  program  on  various  systems  and  by  flow  tracing  through 
the  main  program  calls.  Each  of  the  menu  items  was  selected 
and  control  was  transferred  from  menu  to  menu  successfully. 
Descriptions  of  air  defense  units  and  aircraft  were  entered 
and  listed.  Engagements  were  conducted  between  different 
combinations  of  elements  of  the  unit  and  aircraft  arrays. 
Each  of  the  factor  arrays  were  listed,  elements  changed  and 
engagements  re-run.  Attrition  and  suppression  probabilities 
were  manipulated  to  produce  different  results  with  the  re¬ 
seeded  random  number  generator.  Several  different  users 
participated  in  the  portability  and  usability  tests.  Their 
comments  concerning  the  compilation  of  the  program  on  other 
systems  and  on  the  type  and  amount  of  information  provided 
are  reflected  in  the  smaller  procedures  and  help  screens. 
On  both  the  development  and  portability  test  systems  the 
program  is  found  to  function  correctly. 

Val idation 

As  this  program  is  a  descriptive  training  model,  little 
correspondence  can  be  made  with  actual  encounters  between 
air  defense  artillery  systems  and  aircraft.  The  DUNN-KEMPF 
war  game  on  which  the  program  is  based  was  used  to  generate 
the  results  of  75  engagements.  Dice  were  rolled  for  15  each 
of  the  interactions  supported  by  the  war  game:  Vulcan  and 


helicopter,  Vulcan  and  fighter,  Chaparral  and  fighter, 


Compar i son  Resu Its 


75  Interactions: 

■aTwTTT-B 

l!!ll 

SuDDressi 

DUNN-KEMPF 

4  6 

18 

8 

10 

ADWGSP 

51 

21 

10 

11 

Table  1 


Redeye  and  helicopter,  and  Redeye  and  fighter.  Results  were 
compiled  from  the  table  look-ups  required  for  D UNN-KEliPF. 
Engagements  of  the  same  type  were  generated  by  the  program 
using  the  European  scenario  which  DUNN-KEMPF  uses.  The 
following  values  for  aircraft  factors  were  used:  tactic  of 
fly-over  <1. 0)  and  aspect  of  crossing  <1.1>.  These  factors 
are  not  reflected  in  DUhN-KEMPF.  Air  defense  units  were 
given  an  effectiveness  level  of  1.0  and  suffered  no 
attrition.  The  results  summarized  in  Table  1  show  that 
approximate) y  the  same  engagement  and  hit  ratios  were 
achieved  with  the  Air  Defense  War  Game  Support  Program  as 


with  DUNN-KEMPF. 


IV. 


Conclusions  and  Recommendations 

This  chapter  presents  a  summary  of  this  thesis,  some 
recommendations  for  use  of  the  program,  and  the  conclusions 
drawn . 

Summary 

A  need  for  a  microcomputer  model  of  air  defense 
artillery  situations  is  identified.  The  specific  need  is  in 
the  training  environment  for  a  program  that  provides  the 
probabilities  of  engagement  and  kill  for  forward-area  air 
defense  weapons  against  a  variety  of  aircraft. 

The  Air  Defense  War  Game  Support  Program  is  designed  to 
provide  one-on-one  probabilities  of  engagement  and  kill  for 
a  variety  of  forward-area  air  defense  systems  against 
different  types  of  aircraft.  Each  air  defense  system  is 
described  by  type  (Vulcan,  SGT  York,  Redeye,  Stinger,  or 
Chaparral),  location  (Europe,  desert  or  jungle)  and 
effectiveness  level  (8.0  to  1.0).  Each  aircraft  is 
described  by  type  (helicopter,  transport  or  fighter),  tactic 
(pop-up,  lay-down  or  fly-over),  and  profile  or  aspect 
presented  to  the  air  defense  system  (head-on,  crossing,  or 
tail).  As  currently  programmed,  28  numbered  air  defense 
unit  and  28  numbered  aircraft  descriptions  consisting  of  the 
above  attributes  may  be  entered  and  the  probabilities  of 
engagement  and  kill  calculated  for  any  entered  air  defense 
system  against  any  entered  aircraft. 


The  results  of  an  interaction  between  an  air  defense 


i  a 

i 


unit  and  an  aircraft  are  determined  by  comparing  a  program 
generated  random  number  with  calculated  threshold  values. 
Random  numbers  are  generated  for  each  of  the  engagement, 
kill,  suppression  and  attrition  results.  Threshold  values 
are  calculated  separately  for  the  probabilities  of 
engagement  and  kill.  The  threshold  values  are  calculated  by 
multiplying  a  base  value  by  the  series  of  factors  reflecting 
the  descriptions  of  the  air  defense  unit  and  the  aircraft. 
The  displayed  results  of  an  engagement  include  if  the 
aircraft  is  engaged,  if  the  aircraft  is  hit  and  destroyed  or 
mission  suppressed,  and  if  the  air  defense  system  suffers 
any  attrition  from  an  aircraft  that  was  engaged  but  not 
destroyed  or  suppressed.  Attrition  on  an  air  defense  unit 
is  reflected  by  a  lowering  of  the  unit's  effectiveness  level 
by  the  amount  of  the  attrition  factor. 

Within  the  program  the  factors  used  in  the  calculation 
of  the  engagement  and  kill  thresholds  may  be  changed. 
Additionally,  the  probabilities  of  air  defense  system 
attrition  and  aircraft  suppression,  the  attrition  factor 
(that  value  subtracted  from  the  air  defense  system 
effectiveness  level >  and  the  random  number  seed  may  be 
changed.  Setting  the  random  number  seed  permits  an 
engagement  to  be  conducted  again  with  unchanged  parameters 


i 


or  with  new  factors 


I-f  -file  input  and  output  operations  are  implemented, 
the  data  arrays  -for  the  air  defense  units  and  aircraft,  and 
the  arrays  for  threshold  values  and  factors  may  be  saved  to 


or  restored  from  files. 

The  program  is  designed  specifically  to  be  used  by 
personnel  without  a  computer  background,  yet  has  a 
structured  programming  style  that  permits  easy  modification 
by  a  programmer.  The  program  is  written  in  standard  Pascal 
and,  as  a  result,  is  highly  portable  to  a  variety  of 
compilers  and  computers.  The  program  has  been  used  on  four 
different  computers  and  compilers  without  modification  by 
personnel  without  either  computer  or  air  defense 
backgrounds. 

Recommendat i ons 

The  Air  Defense  Mar  Game  Support  Program  was  designed 
to  be  a  tool  for  use  at  the  U.S.  Army's  Air  Defense 
Artillery  School.  It  is  based  on  the  war  game,  DUNN-KEMPF, 
currently  in  use  to  train  junior  officers.  Designed  to 
replace  the  tedious  process  used  in  that  war  game  to 
calculate  the  probabi I i ti es  of  engagement  and  kill  for  air 
defense  encounters,  this  tool  is  recommended  for  use  at  the 
School.  The  program  capability  of  generating  probabilities 
of  engagement  and  kill  for  different  scenarios  and  different 
weapons  systems  make  it  particularly  suited  for  use  by  an 
instructor  desiring  to  demonstrate  to  students  differences 
in  deployment  and  situation  specifics. 
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Forward-area  air  defense  artillery  battalions  can  make 
use  of  this  program  during  war  games  played  within  the 
battalion.  The  program  may  also  be  used  to  supplement 
higher  level,  larger  war  games  supported  by  the  battalion. 
Use  by  other  services  is  possible  though  some  confusion  may 
be  generated  by  the  use  of  the  words  suppression  and 
attrition.  In  the  program  these  refer  to  aircraft  and  air 
defense  systems  respectively,  and  were  misinterpreted  by 
some  Air  Force  officers  using  the  program. 

Enhancements  and  Expansion.  The  model  programmed 
reflects  the  air  defense  artillery  weapons  currently  in  use 
in  the  active  Army.  A  logical  expansion  of  the  model  is  to 
include  additional  weapons  specific  to  the  National  Guard, 
such  as  the  Roland,  or  specific  to  the  Reserve  Army,  such  as 
the  Duster.  A  replacement  of  the  currently  programmed 
weapons  systems  could  make  the  model  reflect  the  weapons  of 
a  foreign  nation.  The  model  may  be  enhanced  with  additional 
characteristics  for  the  air  defense  systems  or  the  aircraft. 
An  air  defense  system  could  be  given  a  maintenance  or 
ammunition  status  that  expands  on  the  effectiveness  level  or 
a  weather  status  that  extends  the  location  factor. 
Aircraft  could  be  given  additional  characteristics 
reflecting  a  specific  speed  or  altitude.  Aircraft  target 
selection  -  whether  the  aircraft  is  attacking  the  air 
defense  unit  or  another  target  could  be  added  to  the 
aircraft  description  as  a  boolean  function.  This  type  of 
additional  factor  could  impact  on  the  probabi 1 i ty  of 
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engagement  by  assuming  that  an  aircraft  is  more  likely  to  be 
engaged  by  an  air  defense  unit  if  the  aircraft,  is  already 
firing  on  the  unit.  / 

Enhancements  like  those  suggested  woul0  be  programmed 
by  extending  the  records  that  describe  the  air  defense  unit 
and  the  aircraft.  Additional  factor  arrays  may  be  added  in 
the  main  program  variable  declarations,  and  enabled  in  the 
engagement  procedure.  To  permit  /user  modification  of 
additional  factor  arrays,  new  level/  of  menus  may  be  created 
with  access  from  Parameter  Menu/3  which  currently  has  two 
exit  routines.  / 


Conclusion 


The  Air  Defense ^4lar  Game  Support  Program  is  a 
descriptive  model  of  a/one-on-one  engagement  between  a  U.S. 
Army  forward-area  weapons  system  and  an  aircraft.  Designed 
and  running  on  a^variety  of  microcomputers,  it  is  usable  by 
personnel  without  a  computer  background.  The  model  is 
applicable  to  the  current  inventory  of  air  defense  weapons 
but  flexible  enough  to  reflect  changes  in  either  the 


characteristics  such  as  aircraft  altitude  and  speed  or  air 
defense  system  detection  capabilities.  Also  not  considered 
in  the  model  are  in-range  calculations  or  electronic 
coun  ter -measures . 

The  objectives  of  this  thesis  were  met  with  the  Air 
Defense  War  Game  Support  Program.  The  program  can  be 
expected  to  run  on  micro-  or  larger  computers  having  a 
Pascal  compiler  that  supports  the  Pascal  instruction  set  as 
described  in  the  User  Manual  and  Report.  [Jensen  and  Wirth, 
19741  Copies  of  the  program  may  be  obtained  on  a  magnetic 
medium  from  the  Air  Force  Institute  of  Technology  or  from 


the  author. 
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Overview 


The  Air  Defense  War  Game  Support  Program  is  designed  to 
provide  probabilities  of  engagement  and  kill  for  a  variety 
of  forward  air  defense  systems  against  different  types  of 
aircraft.  Each  air  defense  system  is  described  by  type 
(Oulcan,  SGT  York,  Redeye,  Stinger,  or  Chaparral),  location 
(Europe,  Desert  or  Jungle)  and  effectiveness  level  <*.0  to 
1.0).  Each  aircraft  is  described  by  type  (Helicopter, 
Transport  or  Fighter),  tactic  (Pop-up,  Lay-Dawn  or  Fly- 
Over),  and  profile  or  aspect  presented  to  the  air  defense 
system  (Head-on,  Crossing,  or  Tail).  As  currently 
programmed,  20  numbered  Air  Defense  Unit  and  20  numbered 
Aircraft  descriptions  consisting  of  the  above  attributes  may 
be  entered  and  the  probabilities  of  engagement  and  kill 
calculated  for  any  entered  air  defense  system  against  any 
entered  aircraft. 

The  results  of  an  interaction  between  an  Air  Defense 
Unit  and  an  Aircraft  are  determined  by  comparing  a  program 
generated  random  number  with  calculated  threshold  values. 
Random  numbers  are  generated  for  each  of  the  engagement, 
kill,  suppression  and  attrition  results.  Threshold  values 
are  calculated  separately  for  the  probabilities  of 
engagement  and  kill.  The  threshold  values  are  calculated  by 
multiplying  a  base  value  by  the  series  of  factors  reflecting 


the  descriptions  of  the  Air  Defense  Unit  and  the  Aircraft. 
The  displayed  results  of  an  engagement  include  if  the 
aircraft  is  engaged,  if  the  aircraft  is  hit  and  destroyed  or 
mission  suppressed,  and  if  the  air  defense  system  suffers 
any  attrition  from  an  aircraft  that  was  engaged  but  not 
destroyed  or  suppressed.  Attrition  on  an  Air  Defense  Unit 
is  reflected  by  a  lowering  of  the  Unit's  effectiveness  level 
by  the  amount  of  the  attrition  factor. 

Mithin  the  program  the  factors  used  in  the  calculation 
of  the  engagement  and  Kill  thresholds  may  be  changed. 
Additionally,  the  probabilities  of  air  defense  system 
attrition  and  aircraft  suppression,  the  attrition  factor 
(that  value  subtracted  from  the  air  defense  system 
effectiveness  level)  and  the  random  number  seed  may  be 
changed.  Resetting  the  random  number  seed  to  a  previous 
value  permits  an  engagement  to  be  conducted  again  with 
unchanged  parameters  or  with  new  factors.  Each  of  the 
factors  mentioned  above  may  be  changed  from  one  of  the 
parameter  menus. 

If  file  input  and  output  operations  are  implemented, 
the  data  arrays  for  the  Air  Defense  Units  and  Aircraft,  and 
the  arrays  for  threshold  values  and  factors  may  be  saved  to 
or  restored  from  files.  Use  of  external  files  for  storage 
of  the  data  arrays  permits  several  sets  of  data  to  be 
entered  and  changed  during  a  program  run  without  having  to 
enter  the  individual  values  each  time  a  new  data  set  is 


desired 


MAIN  MENU 


A  :  DISPLAY  AIR  DEFENSE  MENU 

B  :  DISPLAY  AIRCRAFT  MENU 

C  :  CONDUCT  ENGAGEMENTS 

D  s  DISPLAY  PARAMETER  MENU 

E  :  END  PROGRAM 

Choose  A,  B,  C,  D,  E,  or  H  -for  Help  > 
Figure  A-l 


Starting  Uo 

When  the  program  is  started  no  air  defense  systems  or 
aircraft  are  available  for  engagements  but  a  set  of  default 
values  for  the  calculation  of  engagement  results  is  loaded. 
The  default  values  are  listed  in  Appendix  G.  After  the 
program  sign-on,  the  user  is  presented  with  the  Main  Menu 
(Figure  A-l).  From  this  menu  either  option  A  or  B  is 
selected  to  proceed  with  the  descriptions  of  air  defense 
systems  and  aircraft.  Selection  of  option  D  allows  the 
default  factors  to  be  displayed  or  changed. 
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S  A  s  ENTER  DESCRIPTION  OF  8 

!  AIR  DEFENSE  UNITS  8 

i  a 

•  a 

!  B  s  LIST  CURRENTLY  ENTERED  I 

!  AIR  DEFENSE  UNITS  8 

I  I 

I  I 

:  C  :  SAVE  DATA  8 

i  a 

i  a 

S  D  :  RESTORE  DATA  i 

•  a 

i  a 

!  E  :  EXIT  TO  MAIN  MENU 

i  a 

i  a 

!  Choose  A,  B,  C,  D,  E,  or  H  -for  Help  >  ! 

a  a 

i  a 

Figure  A-2 

Entering  Air  Defense  Systems 

Option  A  from  the  Main  Menu  brings  up  the  Air  Defense 
Menu  <Figure  A-2).  From  this  menu,  options  A  or  D  are 
selected  to  enter  Air  Defense  Unit  descriptions.  Option  D 
may  only  be  used  if  the  file  input/output  procedures  are 
implemented  and  the  program  has  been  run  previously  and  the 
Air  Defense  Unit  descriptions  saved.  Mhen  option  A,  Enter 
Description  of  Air  Defense  Units,  is  selected,  the  user  is 
told  what  the  next  available  (undescribed)  Unit  number  is 
and  asked  to  enter  the  number  of  the  Unit  to  describe. 
There  is  no  requirement  to  enter  Air  Defense  Units  in  any 
order,  but  entering  the  number  of  a  Unit  that  was  previously 
described  will  result  in  the  new  information  overwriting  the 
previous  description.  There  is  also  no  requirement  to  enter 
any  set  amount  of  Air  Defense  Units  -  a  single  Unit  may  be 
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entered  and  an  engagement  conducted  with  an  entered 
Aircraft.  A  list  of  the  currently  entered  Air  Defense  Units 
is  seen  by  selecting  option  B  of  the  Air  Defense  Menu,  List 
Currently  Entered  Air  Defense  Units.  Entering  an  Air 
Defense  Unit  number  of  6  returns  the  user  to  the  Air  Defense 
Menu . 

Options  on  the  Air  Defense  Menu  include  C,  Save  Data 
and  D,  Restore  Data.  If  the  program  has  been  run  previously 
and  option  C,  Save  Data,  was  used,  descriptions  of  Air 
Defense  Units  may  be  entered  from  the  external  file  ADSAftJE. 
Two  items  of  cautioni  if  the  file  ADSAME  does  not  exist, 
the  program  aborts  to  the  operating  system,  and  if  data  is 
restored  from  the  file  ADSAUE,  any  descriptions  of  Air 
Defense  Units  currently  in  use  are  overwritten.  In  like 
manner,  data  saved  overwrites  the  data  currently  in  the  file 
ADSAME.  The  user  may  make  a  decision  not  to  continue  with 
saving  or  restoring  the  Air  Defense  Unit  data  at  which  time 
the  program  returns  to  the  Air  Defense  Menu. 

The  process  of  describing  an  Air  Defense  Unit  is  a 
matter  of  selecting  the  appropriate  items  from  the 
subsequent  menus.  The  initial  choice  is  for  the  type  of 
system,  the  second  choice  is  for  the  location  of  the  system. 
The  third  choice,  effectiveness  level,  may  be  thought  of  as 
a  decimal  percent  of  effectiveness,  so  if  the  Unit  is 
considered  100Z  effective,  1  or  1.0  is  entered  for  the 
effectiveness  level.  In  like  manner,  a  75/  effective  Unit 


AIRCRAFT  MENU 


A  s  ENTER  DESCRIPTION  OF  AIRCRAFT 
B  s  LIST  CURRENTLY  ENTERED  AIRCRAFT 

C  :  SAVE  DATA 

D  :  RESTORE  DATA 

E  :  EXIT  TO  MAIN  MENU 

Choose  A,  B,  C,  D,  E ,  or  H  for  Help  > 

Figure  A-3 


Entering  Aircraft 

Option  B  from  the  Main  Menu  brings  up  the  Aircraft  Menu 
< Figure  A-3).  From  this  menu,  options  A  or  D  are  selected 
to  enter  Aircraft  descriptions.  Option  D  may  only  be  used 
if  the  file  input/output  procedures  are  implemented  and  the 
program  has  been  run  previously  and  the  Aircraft 
descriptions  saved.  Mhen  option  A,  Enter  Description  of 
Aircraft,  is  selected,  the  user  is  told  what  the  next 
available  (undescribed)  Aircraft  number  is  and  asked  to 
enter  the  number  of  the  Aircraft  to  describe.  There  is  no 
requirement  to  enter  Aircraft  in  any  order,  but  entering  the 
number  of  an  Aircraft  that  was  previously  described  results 
in  the  new  information  overwriting  the  previous  description. 
There  is  also  no  requirement  to  enter  any  set  amount  of 
Aircraft  -  a  single  Aircraft  may  be  entered  and  an 
engagement  conducted  with  an  entered  Air  Defense  Unit.  A 


list  of  the  currently  entered  Aircraft  is  seen  by  selecting 
option  B  of  the  Aircraft,  List  Currently  Entered  Aircraft. 
Entering  an  Aircraft  number  of  0  returns  the  user  to  the 
Aircraft  Menu. 

Options  on  the  Aircraft  Menu  include  C,  Save  Data  and 
D,  Restore  Data.  If  the  program  has  been  run  previously  and 
option  C,  Save  Data,  was  used,  descriptions  of  Aircraft  may 
be  entered  from  the  external  file  ACSAUE.  Two  items  of 
caution:  if  the  file  ACSAUE  does  not  exist,  the  program 
aborts  to  the  operating  system,  and  if  data  is  restored  from 
the  file  ACSAUE,  any  descriptions  of  Aircraft  currently  in 
use  are  overwritten.  In  like  manner,  data  saved  overwrites 
the  data  currently  in  the  file  ACSAUE.  The  user  may  make  a 
decision  not  to  continue  with  saving  or  restoring  the 
Aircraft  data  at  which  time  the  program  returns  to  the 
Aircraft  Menu. 

The  process  of  describing  an  Aircraft  is  a  matter  of 
selecting  the  appropriate  items  from  the  subsequent  menus. 
The  initial  choice  is  for  the  type  of  aircraft,  the  second 
choice  is  for  the  tactic  used  and  the  third  choice  is  for 
the  aspect  the  Aircraft  is  presenting  to  the  Air  Defense 
Unit.  When  a  description  is  completed,  an  Aircraft  number 
of  0  is  entered  to  return  to  the  Air  Defense  Menu.  Option 
B,  List  Currently  Entered  Aircraft,  may  be  made  to  verify 
that  the  correct  information  has  been  entered.  Incorrect 
information  is  corrected  by  selecting  option  A  on  the 


Aircraft  Menu,  entering  the  Aircraft  number  for  which  the 
information  was  incorrect,  and  reselecting  the  menu  items  to 
complete  the  description  of  the  Aircraft. 


Conducting  Engagements 

From  the  Main  Menu,  option  C,  Conduct  Engagements,  is 
selected  after  both  Air  Defense  Units  and  Aircraft  are 
entered.  The  user  is  prompted  for  the  Air  Defense  Unit  and 
the  Aircraft  numbers  for  the  engagement.  Only  numbers  for 
Units  and  Aircraft  that  have  been  described  or  6  to  exit  are 
accepted.  If  an  invalid  number  is  entered,  a  list  of  valid 
numbers  is  displayed  and  the  prompt  redisplayed.  Mhen  valid 
numbers  for  the  Air  Defense  Unit  and  the  Aircraft  are 
entered,  characteristics  of  both  systems  are  listed  and  the 
results  of  the  engagement  are  displayed.  The  first  result 
is  whether  the  Aircraft  was  engaged  by  the  Air  Defense  Unit. 
If  the  Aircraft  was  not  engaged,  the  engagement  process  is 
finished  and  the  user  is  asked  if  another  engagement  is  to 
be  conducted.  If  the  Aircraft  was  engaged,  whether  or  not 
the  Aircraft  was  hit  is  displayed,  and,  if  the  Aircraft  was 


hit,  whether 

it 

was 

destroyed  or 

its  mission  aborted 

is 

determined. 

If 

the 

Aircraft  was  engaged 

but  not  1 

hit, 

whether  or 

not 

the 

Air  Defense 

Unit  was 

suppressed 

is 

displayed,  and  if  the  Unit  was  suppressed,  the  effectiveness 
is  decreased  by  the  amount  of  the  attrition  factor. 


PARAMETER  MENU  1 


LIST  CURRENT  PARAMETERS 


SET/SAVE  PARAMETERS 


SET  RANDOM  NUMBER  SEED 


SET  ATTRITION/SUPPRESSION  FACTORS 


EXIT  TO  MAIN  MENU 


Choose  A,  B,  C,  D,  E,  or  H  for  Help  > 


Figure  A-4 


When  the  engagement  process  is  concluded  and  the 
results  displayed,  the  user  is  given  the  option  o-f 
conducting  another  engagement.  If  no  other  engagement  is  to 
be  conducted,  the  user  is  returned  to  the  Main  Menu. 


Chanoino  Parameters 

Option  D  -from  the  Main  Menu  brings  up  the  Parameter 
Menu  (Figure  A-4).  Parameters  refer  to  the  base  values  -for 
the  probabilities  o-f  engagement  and  hit,  and  the  factor 
values  for  each  of  the  Air  Defense  Unit  and  Aircraft 
descriptors  (with  the  exception  of  the  Air  Defense  Unit 
effectiveness  level).  Other  values  that  may  be  changed 
include  the  probabilities  of  Air  Defense  Unit  attrition  and 
Aircraft  suppression,  the  attrition  factor  and  the  seed  for 
the  random  number  generator. 
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!  A  :  ENGAGEMENT  PROBABILITY  BASE  ! 

I  I 

«  I 

!  B  :  HIT  PROBABILITY  BASE  ! 

I  I 

I  I 

:  C  :  LOCATION  FACTOR  i 

I  I 

I  I 

!  D  :  TACTIC  FACTOR  i 

I  I 

I  I 

!  E  :  ASPECT  FACTOR  ! 

I  I 

»  I 

!  Enter  letter  -for  parameters  to  display  i 

!  Choose  A,  B,  C,  D,  E,  or  X  to  Exit  >  i 

l  I 

I  I 

Figure  A-5 

Option  A  -from  Parameter  Menu  1  brings  up  the  Parameter 

Lists  (Figure  A-5)  from  which  a  set  of  threshold  values  or 

description  factors  may  be  selected  to  be  listed.  Once  a 

set  of  values  is  displayed,  the  user  is  asked  if  another  set 

is  to  be  displayed.  If  the  Parameter  Lists  are  showing  and 

the  user  does  not  choose  to  continue,  option  X  to  Exit 

returns  the  user  to  the  previous  menu. 
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PARAMETER  MENU  2 


S 


B  O 


N 


A  : 

B  : 

C  : 

D  : 

E  : 

Choose  A, 


CHANGE  PARAMETERS 

SAVE  BASE  VALUES 

RESTORE  BASE  VALUES 

SAVE  FACTORS 

RESTORE  FACTORS 

B,  C,  D,  E,  or  X  to  Exit  > 


Figure  A-6 

Selection  o-f  option  B  (Set/Save  Parameters)  -from 
Parameter  Menu  1  brings  up  Parameter  Menu  2  (Figure  A-6) . 
Option  A,  Change  Parameters,  displays  the  Parameter  Lists. 
Selection  of  a  parameter  list  allows  values  used  by  the 
program  to  be  changed  by  specifying  the  row  and  column  of 
value  to  change,  and  the  new  value.  The  new  value  is 
displayed  and  the  user  given  the  option  of  changing  another 
value.  Options  at  Parameter  Menu  2  also  include  B,  Save 
Base  Values;  C,  Restore  Base  Values;  D,  Save  Factors  and  E, 
Restore  Factors.  If  the  program  has  been  run  previously  and 
the  save  options  were  used,  base  values  may  be  restored  from 
the  file  BASAVE  and  factor  values  may  be  restored  from  the 
file  FASAVE.  Two  items  of  caution:  if  the  files  do  not 
exist,  the  program  aborts  to  the  operating  system;  and  if 
data  is  restored  from  the  files,  any  data  currently  in  use 
is  overwritten.  In  like  manner,  data  saved  overwrites  the 
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PARAMETER  MENU  3 


SET  ATTRITION  FACTOR 


SET  ATTRITION  PROBABILITY 


SET  SUPPRESSION  PROBABILITY 


EXIT  TO  PARAMETER  MENU  1 


EXIT  TO  MAIN  MENU 


Choose  A,  B,  C,  D,  E,  or  H  for  Help  > 


Figure  A -7 


data  currently  in  the  files.  The  user  may  make  a  decision 
not  to  continue  with  saving  or  restoring  the  data  at  which 
time  the  program  returns  to  Parameter  Menu  2.  If  Parameter 
Menu  2  is  showing  anH  the  user  does  not  choose  to  continue, 
option  X  to  Exit  returns  the  user  to  the  previous  menu. 

Selection  of  option  C,  Set  Random  Number  Seed  or  D,  Set 
Attrition/Suppression  Factors  from  Parameter  Menu  1  permits 
those  values  to  be  changed.  Option  D  brings  up  Parameter 
Menu  3  (Figure  A-7) . 

For  each  option  on  Parameter  Menu  3  and  option  C,  Set 


Random  Number  Seed,  from  Parameter  Menu  i,  the  current  and 
original  factors  and  permissible  range  for  a  new  value  are 
di spl ayed. 


•  V  A'  V.  V.T- 


AIR  DEFENSE 
WAR  GAME 
SUPPORT  PROGRAM 


Press  Return  or  Enter  to  Continue 


Screen  1 

This  sample  session  with  the  Air  Defense  War  Game 
Support  Program  demonstrates  the  sequence  of  entering  and 
listing  the  Air  Defense  Units  and  Aircraft,  conducting  an 
engagement,  listing  and  changing  the  program  parameters,  and 
conducting  an  engagement  with  the  new  parameters.  User 
input  in  the  following  screens  has  been  underlined.  When 
the  program  is  started,  the  initiat  screen  displays  the 
program  name  and  prompts  the  user  to  continue. 
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A 

t 

M  A  I 

DISPLAY 

N  MENU 

AIR  DEFENSE  MENU 

B 

s 

DISPLAY 

AIRCRAFT  MENU 

C  : 

CONDUCT 

ENGAGEMENTS 

D  : 

DISPLAY 

PARAMETER  MENU  1 

E 

s 

END  PROGRAM 

Choose  A, 

B,  C,  D 

,  E,  or  H  for  Help  >  a 

Screen  2 


The  Main  Menu  allows  the  transfer  of  program  control  to 
the  Air  Defense,  Aircraft  or  Parameter  Menus,  or  to  the 
procedure  for  conducting  an  engagement.  In  this  case, 
Choice  g,  selection  of  the  Air  Defense  Menu  is  made.  This 
is  normally  the  first  step  in  the  program. 


A  I 

R  DEFENSE  MENU 

A 

• 

• 

ENTER  DESCRIPTION  OF 

AIR  DEFENSE  UNITS 

B 

a 

a 

LIST  CURRENTLY  ENTERED 

AIR  DEFENSE  UNITS 

C 

a 

a 

SAME  DATA 

D 

a 

a 

RESTORE  DATA 

E 

a 

a 

EXIT  TO  MAIN  MENU 

Choose  A, 

B,  C,  D,  E,  or  H  for  Help  >  a 

Screen  3 


From  the  Air  Defense  Menu,  the  Air  Defense  Units  may  be 
entered,  listed  and  saved  to  or  restored  from  a  file. 
Saving  or  restoring  data  from  files  is  operating  system 
dependent  and  must  be  implemented  by  the  user.  When  the 
program  is  initialized,  no  Air  Defense  Units  are  available 
for  engagements.  In  this  screen,  selection  A  is  made  to 
enter  Air  Defense  Units. 


Air  Defense  Unit  Descriptions 


Next  available  Unit  number:  1 

Enter  Air  Defense  Unit  number 
between  i  and  20 
or  0  to  exit  >  1 


Screen  4 

The  Air  Defense  Units  are  identified  by  a  Unit  number 
ranging  from  1  to  the  maximum  number  the  program  permits. 
In  the  above  screen  the  maximum  number  of  Air  Defense  Units 
permitted  is  20  and  the  first  available  Unit  number  is  1.  A 
Unit  number  is  available  if  no  Air  Defense  Unit  has  been 
entered  for  that  number.  If  all  the  the  numbers  in  the 
permissable  range  have  an  active  Air  Defense  Unit  (one  that 
has  been  entered  as  in  the  succeeding  screens)  associated 
with  it,  the  message  'Air  Defense  Unit  array  is  full'  is 
displayed.  Attempts  to  enter  a  number  outside  the 


permissible  range  results  in  the  prompt  being  printed  until 
a  correct  number  is  entered.  Any  number  in  the  permissible 
range  may  be  entered  -  there  is  no  requirement  to  enter  the 
number  which  is  displayed  as  available,  but  entering  a 
number  -for  a  Unit  that  has  already  been  described  results  in 
the  old  Unit  description  being  overwritten.  Entering  0 
indicates  that  no  (more)  Air  De-fense  Units  are  to  be  entered 
and  control  is  returned  to  the  Main  Menu. 


Air 

Defense  Unit  Descriptions 

Specify 

Air  Defense  Unit  Type 

1 

:  Vulcan 

2 

s  SGT  York 

3 

i  Redeye 

4 

:  Stinger 

5 

:  Chaparral 

Enter  Air  Defense  Unit  type  >  _1 

Screen  5 

Sel  ection 

is 

made  of  the  Air 

Defense  Unit  type 

by 

entering  the  number 

corresponding  to 

the  desired  type. 

In 

this  case,  Air 

Defense  Unit  type  Vu 1 c 

:an  is  selected. 

A  I 

R  DEFENSE  MENU 

A 

a 

a 

ENTER  DESCRIPTION  OF 

AIR  DEFENSE  UNITS 

B 

a 

a 

LIST  CURRENTLY  ENTERED 

AIR  DEFENSE  UNITS 

C 

a 

a 

SAVE  DATA 

D 

a 

a 

RESTORE  DATA 

E 

a 

a 

EXIT  TO  MAIN  MENU 

Choose  A, 

B,  C,  D,  E,  or  H  for  Help  >  b 

Screen  9 


From  the  Air  Defense  Unit  description  process,  control 
is  returned  to  the  Air  De-fense  Menu.  Selection  B  is  made 
to  list  the  currently  entered  Air  Defense  Units. 


AIR  DEFENSE  MENU 

A  :  ENTER  DESCRIPTION  OF 

AIR  DEFENSE  UNITS 

B  :  LIST  CURRENTLY  ENTERED 

AIR  DEFENSE  UNITS 

C  :  SAVE  DATA 

D  :  RESTORE  DATA 

E  :  EXIT  TO  MAIN  MENU 

Choose  A,  B,  C,  D,  E,  or  H  for  Help  >  e 


Screen  11 

After 

the  Air 

Defense  Units  have 

been  entered 

and 

1 isted  (if 

Main  Menu. 

desired) 

selection  E  is  made 

to  return  to 

the 

MAIN  MENU 


A  :  DISPLAY  AIR  DEFENSE  MENU 

B  s  DISPLAY  AIRCRAFT  MENU 

C  :  CONDUCT  ENGAGEMENTS 

D  s  DISPLAY  PARAMETER  MENU  1 

E  :  END  PROGRAM 


Choose  A,  B,  C,  D,  E,  or  H  for  Help  >  b 


AIRCRAFT  MENU 


ENTER  DESCRIPTION  OF  AIRCRAFT 


LIST  CURRENTLY  ENTERED  AIRCRAFT 


SAVE  DATA 


RESTORE  DATA 


EXIT  TO  MAIN  MENU 


Choose  A,  B,  C,  D,  E,  or  H  -for  Help  >  a 


Screen  13 


From  the  Aircraft  Menu,  the  Aircraft  may  be  entered, 
listed  and  saved  to  or  restored  from  a  file.  Saving  or 
restoring  data  from  files  is  operating  system  dependent  and 
must  be  implemented  by  the  user.  When  the  program  is 
initialized,  no  Aircraft  are  available  for  engagements.  In 
this  screen,  selection  A  is  made  to  enter  Aircraft. 
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Aircraft  Descriptions 


Next  available  aircraft  number  is  1 

Enter  Aircraft  number 
between  1  and  20 
or  9  to  exit  >  1 


i 

1 

I  (• 

Screen  14 

The  Aircraft  are  identified  by  a  number  ranging  from  1 
to  the  maximum  number  the  program  permits.  In  the  above 
screen  the  maximum  number  of  Aircraft  permitted  is  20  and 
the  first  available  Unit  number  is  1.  An  Aircraft  number  is 
available  if  no  Aircraft  has  been  entered  for  that  number. 
If  all  the  numbers  in  the  permissable  range  have  an  active 
Aircraft  <one  that  has  been  entered  as  in  the  succeeding 
screens)  associated  with  it,  the  message  'Aircraft  array  is 
full'  is  displayed.  Attempts  to  enter  a  number  outside  the 
permissable  range  results  in  the  prompt  being  printed  until 


a  correct  number  is  entered.  Any  number  in  the  permissable 
range  may  be  entered  -  there  is  no  requirement  to  enter  the 
number  which  is  displayed  as  available,  but  entering  a 
number  for  an  Aircraft  that  has  already  been  described 
results  in  the  old  Aircraft  description  being  overwritten. 
Entering  8  indicates  that  no  (more)  Aircraft  are  to  be 
entered  and  control  is  returned  to  the  Main  Menu. 


Aircraft  Descriptions 


Specify  Aircraft  Type 

1  :  Heticopter 

2  i  Transport 

3  :  Fighter 

Enter  Aircraft  type  >  .1 


Screen  15 

Selection  is  made  of  the  Aircraft  type  by  entering  the 
number  corresponding  to  the  desired  type.  In  this  case, 
Aircraft  type  Hel icopter  is  selected. 


v  v  w  * 


Screen  1? 


From  the  Aircraft  description  process,  control  is 
returned  to  the  Aircraft  Menu.  Selection  g  is  made  to  list 
the  currently  entered  Aircraft. 
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Aircraft  Descriptions 


Number  Type  Tactic 
1  Helicopter  Pop-Up 
Press  Return  or  Enter  to 


Aspec  t 
Head-On 
Continue 


Screen  20 

The  list  of  the  currently  entered  Aircra-ft  is  made  in  a 
table  -format.  If  more  than  10  Aircraft  have  been  entered, 
the  first  10  are  displayed  and  the  user  prompted  to  press 
Return  or  Enter  to  continue.  When  all  of  the  entered 
Aircraft  have  been  displayed  the  user  is  prompted  to 
continue.  When  Return  or  Enter  is  pressed,  control  is 


returned  to  the  Aircraft  Menu 


A 

IRCRAFT  MEN 

U 

A  : 

ENTER  DESCRIPTION  OF 

AIRCRAFT 

B  : 

LIST  CURRENTLY  ENTERED  AIRCRAFT 

C  : 

SAVE  DATA 

D  : 

RESTORE  DATA 

E  : 

EXIT  TO  MAIN  MENU 

Choose  A, 

Bf  C,  Df  E ,  or  H  for 

Help  >  g 

Screen  21 


After  the  Aircraft  have  been  entered  and  listed  (if 
desired)  selection  E  is  made  to  return  to  the  Main  Menu. 


ENGAGEMENTS 


Enter  Air  Defense  Unit  number 
between  1  and  20 
or  8  to  exit  >  _1 

Enter  Aircraft  number 
between  1  and  20 
or  0  to  exit  >  1 


Screen  23 


The  user  is  asked  -for  the  number  o*  the  Air  Defense 
Unit  and  the  Aircraft  for  the  engagement  In  this  case,  Air 
Defense  Unit  number  _1  and  Aircraft  are  selected  for  the 
engagement.  Entering  the  number  of  a  Unit  or  Aircraft  that 
has  not  been  described  results  in  the  message  'That  Air 
Defense  Unit/Aircraft  has  not  been  entered'  and  a  list  of 
the  valid  Unit  or  Aircraft  numbers  is  displayed.  The  user 


is  again  asked  for  a  Unit/Aircraft  number  or  0  to  exit. 
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ENGAGEMENT  RESULTS 


MAIN  MENU 

A  : 

DISPLAY  AIR  DEFENSE  MENU 

B  : 

DISPLAY  AIRCRAFT  MENU 

C  : 

CONDUCT  ENGAGEMENTS 

D  : 

DISPLAY  PARAMETER  MENU  1 

E  ! 

END  PROGRAM 

Choose  A, 

B,  C,  D,  E,  or  H  for  Help  >  d 

Screen  25 


If  the  decision  is  made  to  change  or  view  the  program 
parameters,  option  D  from  the  Main  Menu  is  chosen. 


PARAMETER  MENU 


A  s  LIST  CURRENT  PARAMETERS 

B  *  SET/SAVE  PARAMETERS 

C  :  SET  RANDOM  NUMBER  SEED 

D  s  SET  ATTR I T I  ON/SUPPRESS I ON  FACTORS 


PARAMETER  LISTS 


A  :  ENGAGEMENT  PROBABILITY  BASES 

B  :  HIT  PROBABILITY  BASES 

C  :  LOCATION  FACTOR 

D  *  TACTIC  FACTOR 

E  !  ASPECT  FACTOR 

Enter  letter  -for  parameters  to  display 
Choose  A,  B ,  C,  D,  E,  orX  to  Exit  >£. 


Screen  27 

Selection  A  is  made  to  display  the  base  values  -for 
engagement  probabilities. 


Probability  of  Engagement  Base  Values 


Vulcan 

Hel i copter 
0.83 

Transport 

0.67 

Fighter 

0.50 

SGT  York 

0.90 

0.70 

0.60 

Redeye 

0.50 

0.67 

0.50 

Stinger 

0.60 

0.70 

0.60 

Chaparral 

0.50 

0.67 

0.50 

Continue  to  display  parameters? 

Enter  y  or  Y  for  yes,  n  or  N  for  no  >  y 


Screen  28 

The  base  values  for  the  probability  of  engagement  are 
displayed  and  the  user  is  asked  if  another  set  of  parameters 
is  to  be  displayed. 


hit  probabilities 


Probability  o-f  Hit  Base  Values 


Vulcan 

He! i copter 
0.56 

Transpor t 
0.50 

Fighter 

0.33 

SGT  York 

0.60 

0.60 

0.40 

Redeye 

0.17 

0.33 

0.33 

Stinger 

0.20 

0.^0 

8.40 

Chaparral 

0.33 

0.33 

0.33 

Continue  to  display  parameters? 

Enter  y  or  Y  for  yes,  n  or  N  for  no  >  % 


Screen  30 

The  base  values  for  the  probability  of  hit  are 
displayed  and  the  user  is  asked  if  another  set  of  parameters 
is  to  be  displayed. 


PARAMETER  LISTS 


A  :  ENGAGEMENT  PROBABILITY  BASES 

B  :  HIT  PROBABILITY  BASES 

C  :  LOCATION  FACTOR 

D  :  TACTIC  FACTOR 

E  s  ASPECT  FACTOR 

Enter  letter  -for  parameters  to  display 
Choose  A,  B,  C,  Df  E,  orX  to  Exit  >  £ 


Screen  31 


Selection  C  is  made  to  display  the  values 


Location  Factors 


Europe 

Desert 

Jungl e 

Vulcan 

i.ee 

i.  ie 

8.80 

SGT  York 

i.ee 

i.  ie 

e.se 

Redeye 

i.ee 

i.  ie 

e.8e 

Stinger 

i.ee 

i.  ie 

0.80 

Chaparral 

i.ee 

i.  10 

e.se 

Continue  to  display  parameters? 

Enter  y  or  Y  for  yes,  n  or  N  for  no  >  y 


Screen  32 

The  values  for  the  location  factor  are  displayed  and 
the  user  is  asked  if  another  set  of  parameters  is  to  be 
displ ayed. 


PARAMETER  LISTS 


A  s  ENGAGEMENT  PROBABILITY  BASES 

B  :  HIT  PROBABILITY  BASES 

C  :  LOCATION  FACTOR 

D  :  TACTIC  FACTOR 

E  :  ASPECT  FACTOR 

Enter  letter  -for  parameters  to  display 
Choose  A,  B,  C,  D,  E,  or  X  to  Exit  >  d 


Screen  33 

Selection  0  is  made  to  display  the  base  values  for 
tactic  factors. 


PARAMETER  LISTS 

A  :  ENGAGEMENT  PROBABILITY  BASES 

B  :  HIT  PROBABILITY  BASES 

C  :  LOCATION  FACTOR 

D  :  TACTIC  FACTOR 

E  :  ASPECT  FACTOR 

Enter  letter  -for  parameters  to  display 
Choose  A,  B,  C,  D,  E,  orX  to  Exit  >  e 
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PARAMETER  MENU 


PARAMETER  MENU  2  ^ 

A  s  CHANGE  PARAMETERS 

B  :  SAVE  BASES 

C  :  RESTORE  BASES 

D  :  SAVE  FACTORS 


E  s  RESTORE  FACTORS 


Choose  A,  B,  C,  D,  E,  or  H  -for  Help  >  a 


PARAMETER  LISTS 


value.  1.0.  is  then  entered 


Probability  of  Engagement  Base  Values 


Vulcan 

Hel i copter 
1.00 

Transport 

0.6? 

Fighter 

0.50 

SGT  York 

0.90 

0.70 

0.60 

Redeye 

0.50 

0.67 

0.50 

Stinger 

0.60 

0.70 

0.60 

Chaparral 

0.50 

0.67 

0.50 

Change  another  value? 

Enter  y  or  Y  for  yes,  n  or  N  for  no  >  n 

Continue  to  change  parameters? 

Enter  y  or  Y  for  yes,  n  or  N  for  no  >  n 


Screen  4i 

The  table  is  re-displayed  with  the  new  value  in  place 
and  the  user  asked  if  any  more  values  are  to  be  changed  or 
if  values  in  another  table  are  to  be  changed. 


PARAMETER  MENU 


A  : 

LIST  CURRENT  PARAMETERS 

B  : 

SET/SAVE  PARAMETERS 

C  : 

SET  RANDOM  NUMBER  SEED 

D  : 

SET  ATTRITION/SUPPRESSION 

FACTORS 

E  : 

EXIT  TO  httIN  MENU 

Choose  A, 

B,  C,  D,  E,  or  H  for  Help 

>  u 

Screen  42 


Selection  D  is  made  to  set  the  attrition  or  suppression 


factors.  This  transfers  control  to  Parameter  Menu  3 


PARAMETER  MENU  3 


SET  ATTRITION  FACTOR 


Current  attrition  -factor:  0.00 
Initial  attrition  -factor:  0.00 

The  attrition  factor  must  be  a 
decimal  between  0.00  and  1.00 
This  value  may  be  subtracted 
from  the  Air  Defense  Unit  level 
of  effectiveness  as  a  result  of 
an  engagement  if  the  Aircraft 
is  not  suppressed  or  destroyed. 

Enter  new  attrition  factor  >  0.01 
New  attrition  factor:  0.01 


Press  Return  or  Enter  to  Continue 


Screen  44 


The  original  and  current  values  of  the  attrition  factor 
are  displayed  as  is  the  permissible  range  for  a  new  value. 
The  new  value,  0.01.  is  entered.  The  program  displays  the 
new  value  and  waits  for  user  input  before  continuing. 
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ANvV-YV, 
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attrition 


B  : 

C  : 

D  : 

E  : 

Choose  A, 


SET  ATTRITION  FACTOR 

SET  ATTRITION  PROBABILITY 

SET  SUPPRESSION  PROBABILITY 

EXIT  TO  PARAMETER  MENU  1 

EXIT  TO  MAIN  MENU 

B,  C,  D,  E,  on  H  for  Help  >  c 


Screen  47 


Selection  C  is  made  to  set  the  probability 


suppression 


PARAMETER  MENU  3 


A  :  SET  ATTRITION  FACTOR 

B  :  SET  ATTRITION  PROBABILITY 

C  :  SET  SUPPRESSION  PROBABILITY 

D  :  EXIT  TO  PARAMETER  MENU  1 

E  :  EXIT  TO  MAIN  MENU 


Choose  A,  B,  C,  D,  E,  or  H  -for  Help  >  d 


PARAMETER  MENU 

A  s  LIST  CURRENT  PARAMETERS 

6  :  SET/SAVE  PARAMETERS 

C  :  SET  RANDOM  NUMBER  SEED 

D  :  SET  ATTRITION/SUPPRESSION  FACTORS 

E  :  EXIT  TO  MAIN  MENU 

Choose  A,  B,  C,  D,  E,  or  H  -for  Help  >  c. 


Screen  50 


Selection  C  is  made  to  set  the  random  number  seed 


SET  RANDOM  NUMBER  SEED 


The  original  and  current  values  for  the  random  number 
seed  are  displayed,  as  is  the  permissible  range  for  a  new 
value.  In  this  case,  the  random  number  seed  is  reset  to 
the  original  value  in  order  to  repeat  the  first  engagement 
with  the  new  attrition  and  suppression  probabilities. 


A  s  LIST  CURRENT  PARAMETERS 

B  :  SET/SAVE  PARAMETERS 

C  :  SET  RANDOM  NUMBER  SEED 

D  :  SET  ATTRITION/SUPPRESSION  FACTORS 

E  :  EXIT  TO  MAIN  MENU 


Selection  E  is  made  to  return  to  the  Main  Menu 


MAIN  MENU 


ENGAGEMENTS 


Enter  Air  Defense  Unit  number 
between  1  and  20 
or  0  to  exit  >  J, 

Enter  Aircraft  number 
between  1  and  20 
or  0  to  exit  >  1 


Screen  56 


Another  engagement  with  the  same  Unit  and  Aircraft  is 
run  to  examine  the  effect  of  the  attrition  suffered  by  the 
Air  Defense  Unit. 


The  engagement  results  ref  lect  the  lowered 
effectiveness  level  of  the  Air  Defense  Unit.  The  engagement 
theshold,  a  product  of  effectiveness  level  and  other 
parameters  is  also  lower.  The  different  result  in  this  case 
is  primarily  due  to  the  higher  random  number  generated, 
though  a  higher  attrition  factor  could  have  decreased  the 
engagement  threshold  consi derabl y .  Selection  is  made  to 
terminate  the  engagement  sequences. 


MAIN  MENU 


A  :  DISPLAY  AIR  DEFENSE  MENU 

B  :  DISPLAY  AIRCRAFT  MENU 

C  :  CONDUCT  ENGAGEMENTS 

D  !  DISPLAY  PARAMETER  MENU  1 


E  :  END  PROGRAM 


Choose  A,  B,  C,  D,  E,  or  H  -for  Help  >  e 
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C-2:  Air  Defense  Menu  Selections 
C-3s  Aircraft  Menu  Selections  .. 
C-4:  Parameter  Menu  i  Selections 
C-5s  Parameter  Menu  2  Selections 
C-5s  Parameter  Menu  3  Selections 


Air  De-fens©  Menu 


Aircra-ft  Menu 
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Exit  Program 


(Help  1) 
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Chart  C-2:  Air  Defense  Menu  Selections 


Air  Defense  Menu 


Enter  Air  Defense  Units 


List  Air  Defense  Units 


Save  Air  Defense  Units 


Restore  Air  Defense  Units 


Exit  to  Mai n  Menu 


(Help  2) 
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Chart  C-3i  Aircraft  Menu  Selections 


Aircraft  Menu 


Enter  Aircraft 


List  Aircraft 


Save  Aircraft 


Restore  Aircraft 


Exit  to  Main  Menu 


(Help  3) 
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(E*it  to  Parameter  Menu  1) 


Set  Attrition  Probability 


Set  Suppression  Probability 


Exit  to  Parameter  Menu  1 


Constants 


Types  . . . . . I 

Variables  . . . . .  I 

Functions 

Uni -form  . . ] 

Readlnt  . .  I 

Okay  . I 

Support  Procedures 

ClearScreen  . I 

ShowProgramName  . . I 

Wai tf orReturn  .  I 

GetChoice  . . I 

GetXChoice . I 

WriteTitle  . . I 

ListBaseFacts  . .  I 

Li stOtherFac ts  . . I 

ShowLists  . I 

Main  Program  .  I 

Main  Program  Procedures 

Initialize  . 

<  Help  Choices  } 

'l'  t  Hel pOne  .... 

'2'  s  HelpTwo  _ 

' 3 *  s  HelpThree  .. 

'A'  :  Hel pFour  . . . 


(cont) 


program  ADHGSP< input , output! ,Adsave,Acsave,Basave,Fasave>>  ; 
<* 


AIR  DEFENSE  WAR  GAMEZ  SUPPORT  PROGRAM 


AUTHOR  :  CPT  David  L.  Boltt,  U.S.  Army 

LANGUAGE  :  Standard  Pascal 

PURPOSE  :  To  provide  a  training  tool  and  war  game  support  by 
generating  probabilities  of  engagement  and  hit  for 
a  variety  of  Air  Defense  Units  with  different  char¬ 
acteristics  against  a  variety  of  Aircraft  with  dif¬ 
ferent  characteristics. 

DESCRIPTION  : 

The  program  presents  the  user  with  a  series  of  menus  which  allow 
description  of  arrays  of  Air  Defense  Units  and  Aircraft.  These 
arrays,  and  a  set  of  factors  concerning  various  attributes  of  the 
Air  Defense  Unit  (  type, location  and  effectiveness  >  and  Aircraft 
(  type,  tactic  and  aspect  )  are  used  to  calculate  probabilities  of 
engagement  and  hit  for  an  interaction  between  the  systems.  A  ran¬ 
dom  number  generator  is  used  to  determine  results  of  an  engagement. 
All  of  the  pertinent  factors  used  in  calculating  the  results  of  the 
engagement  may  be  set  within  the  program,  and  a  programmer  may  add 
additional  characteristics  to  the  Air  Defense  Unit  or  the  Aircraft 
and  incorporate  those  characteristics  in  the  calculation  of  engage¬ 
ment  results. 


STREAMSEED  *  12347  ; 


{Initial  random  number  seed) 


TRITFACTOR 

ATTRITPROB 

SUPRESPROB 

MAXADUNITS 

MAXAIRCRAF 

MAXADKINDS 
MAXADPLACE 
MAXACSORTS 
MAXACTACTS 
MAXACASPEC 
MAX  FACTORS 


'Pe 

A ORE CORD 


ACRECORD 


STR11 

STR35 


DESCRIPS 

ADTYPE 

ACTYPE 

BASEFACTS 

FACTORS 


0.0 

0.5 

8.5 


{Initial  attrition  factor) 

{Initial  probability  of  attrition) 
{Initial  probability  of  suppression) 


28 

20 

5 

3 

3 

3 

3 

5 


{Max  number  of  Air  Defense  Units) 

{Max  number  of  Aircraft) 

{Factors  for  probability  calculations) 

{Max  number  of  Air  Defense  Unit  types) 

{Max  number  of  Air  Defense  Unit  locations) 

{Max  number  of  Aircraft  types) 

{Max  number  of  Aircraft  tactics) 

{Max  number  of  Aircraft  aspects) 

(Equal  to  the  largest  of  the  above  factors) 


record  {Air  Defense  Unit  Description) 

Isactive  :  boolean  ; 

Kind,  Location  :  integer  j 

Effect  level  :  real  ; 

end  ; 

record 
Isactive 
Sort,  Tactic, 

Aspect 
end  ; 

packed  arrayn..ll)  of  char  ; 
packed  array! 1.. 351  of  char  ; 

array! 0 . .MAXFACTORS)  of  STR11  ; 
array! 1.. MAXADUNITS)  of  ADRECORD  ; 
array! 1 . .MAXAIRCRAF)  of  ACRECORD  ; 
arr ay!l.. MAXADKINDS, 1.. MAXACSORTS]  of  real  $ 
array! 1 . .MAXADKINDS, 1 . .MAXFACTORS)  of  real  ; 


{Aircraft  Description) 
:  boolean  j 

:  integer  ; 


Seed 

Choice 
Atritfactor 
Atri tprob 
Suprsprob 


Adun i t 
Aircraft 


Adkinds 
Adplaces 
Ackinds 
Ac  tactics 
Ac aspects 


PEbase 

PHbase 

Place-fact 

Tactifact 

Aspec-fact 


<X 


Adsave 
Ac  save 
Basave 
Fasave 


X) 


{Global  Variables) 
integer  ; 
char 


real 

real 

real 


{Random  number  seed) 

{Program  control  variable) 
{Attrition  -factor) 
{Probability  of  attrition) 
(Probability  of  suppression) 


(Variable  Data  Arrays) 
ADTYPE  i 


ve  Arrays) 


ACTYPE  j 
(Descript 
DESCRIPS 
DESCRIPS 
DESCRIPS 
DESCRIPS 
DESCRIPS  , 
(Factor  Arrays) 
BASEFACTS  j 
BASEFACTS  ; 
FACTORS 
FACTORS 
FACTORS 


(array  of 
(array  of 
(array  of 
(array  of 
(array  of 


engagement  prcbabi 1 i ties) 
hit  probabilities) 

location  factors) 
tactics  factors) 
aspect  factors) 


(Data  Files  for  file  I/O  implementation) 

text  ; 

text  ; 

text  ; 

text  ; 


>rocedure  Cl  ear  Screen  ; 

Called  from  :  Numerous  procedures 
Returns  to  :  Calling  procedure 


Purpose  :  Clears  CRT  screen  of  previous  information 

Description  :  Scrolls  previous  information  off  screen.  Should 
be  replaced  with  CRT  specific  screen  clearing 
sequence  for  slow  CRTs 

) 

var  Counter  :  integer  ; 
begin 

for  Counter  :=  i  to  25  do  writeln  ; 
end  ;  {procedure  Cl  ear Screen) 


procedure  ShowProgranName  ; 

{ 

Called  from  :  Main  Program 
Returns  to  :  Main  Program 

Purpose  :  Clears  CRT  screen  and  displays  program  name 

Description  :  Scrolls  previous  information  off  screen  and 
writes  program  name. 

} 

var  Counter  :  integer  ; 
begin 

ClearScreen  ; 

writelnt'  AIR  DEFENSE')  5 

write1n('  WAR  GAM  E'>  ; 

wri teln<'  SUPPORT  PROGRAM'); 
for  Counter  :=  1  to  10  do  writeln  ; 
end  ;  {procedure  ShowPrograinName} 

procedure  Mai tforReturn  ; 

{ 

Called  from  :  Numerous  procedures 

Returns  to  :  Calling  procedure 

Purpose  :  Suspends  program  execution 

Description  :  Displays  message  and  waits  for  user  to 
enter  the  CR/LF  key. 

) 

begin 
writeln  ; 

writet'Press  Return  or  Enter  to  Continue')  5 
readln  ; 
writeln  ; 

end  ;  {procedure  Mai tforReturn) 


procedure  GetChoice<Al pha,  Bravo,  Charlie,  Delta,  Echo,  Help  :  char  ; 

var  Choice  :  char)  ; 

< 

Called  from  :  Numerous  procedures 
Returns  to  :  Calling  procedure 

Purpose  :  Converts  displayed  menu  choice  to  Main  Program  choice. 
Description  : 

A  uniform  set  of  choices  is  offered  (A..E,H)  in  each  menu  and  are 
converted  here  to  the  set  of  choices  used  by  the  main  program. 
Uppercase  is  filtered  out  in  this  procedure.  The  procedure  is  passed 
the  set  of  choices  that  correspond  to  the  available  procedures  and 
returns  the  converted  choice  from  user  input. 


begin 

repeat 

wr i te< 'Choose  A,  B,  C,  D,  E,  or  H  for  Help  >  ')  ; 
readln<Choice)  ; 

until  Choice  in  I 'a7 ,'A' , 'b' ,'B' ,'c' ,'C' ,'d' ,'D' ,'e' ,'E' ,'h' ,'H' ]  ; 
case  Choice  of 

'a',  'A'  s  Choice  :=  Alpha  ; 

'b',  'B'  i  Choice  :=  Bravo  5 

'c',  'C'  s  Choice  s*  Charlie  5 
'd',  'D'  s  Choice  :=  Delta  ; 

'e',  'E'  :  Choice  :=  Echo  5 

'h',  'H'  :  Choice  Help  j 

end  ;  {case) 

end  :  {procedure  GetChoice} 


procedure  GetXChoice<Alpha,  Bravo,  Charlie,  Delta,  Echo,  Exit  :  char  ; 

var  Choice  :  char)  ; 

< 

Called  from  :  ListFactors,  Wri teParaMenu ,  SetFactors 
Returns  to  :  Calling  procedure 

Purpose  :  Converts  displayed  menu  choice  to  calling  procedure  choi 
Description  : 

A  uni-form  set  of  choices  is  offered  (A..E,X)  in  each  menu  and  are 
converted  here  to  the  set  of  choices  used  by  the  calling  procedure. 
Uppercase  is  filtered  out  in  this  procedure.  The  procedure  is  passed 
the  set  of  choices  that  correspond  to  the  available  procedures  and 
returns  the  converted  choice  from  user  input. 


begin 

repeat 

wri te< 'Choose  A,  B,  C,  D,  E,  or  X  to  Exit  >  ')  ; 
readl n(Choice)  ; 

until  Choice  in  [ 'a7 ,'A' ,'b' ,'B' ,'c' ,'C' ,'d' ,'D' , 'e' ,'E' ,'x' , 'X' 3  ; 
case  Choice  of 


a7. 

'A' 

:  Choice 

Alpha  ; 

b', 

'B' 

:  Choice 

:=  Bravo  ; 

c', 

'C' 

:  Choice 

•a  Charlie 

d', 

'D' 

:  Choice 

:=  Del ta  5 

e', 

'E' 

:  Choice 

:=  Echo  5 

x7, 

'X' 

:  Choice 

s=  Exit  ; 

end  ;  {case) 

end  ;  {procedure  GetXChoice) 


-function  Uni -form  :  integer  ; 

{ 

Called  from  :  Con duct Engagement  procedure 
Returns  to  :  Calling  procedure 
Purpose  :  Returns  a  random  integer 
Description  : 

Generates  sequence  of  32,763  random  integers  in  the  range  1..100 
Requires  the  external  global  variable  Seed 

MULT  may  be  1221, 1287,3993,4189,4293,9237, 14789, 15125  or  17245 


const 

MULT  =  3993  ; 
begin 

Seed  :=  MULT  31  Seed  +  1  ; 

if  Seed  <  0  then  Seed  :=  Seed  *  maxint  +  1  ; 

Uniform  :=  trunc (< Seed/max int)X 100)  +  1; 
end  ;  (function  Uniform) 

function  Readlnt(var  Int  :  integer  ;  Low,  High  :  integer)  :  boolean 
( 

Called  from  :  Numerous  procedures 
Returns  to  :  Calling  procedure 
Purpose  :  Attempts  to  read  an  integer 
Description  : 

Function  Readlnt  attempts  to  read  an  integer  between  Low  and  High, 
returning  the  integer  in  Int  and  true  iff  successful .  Note  that 
minimal  error  trapping  is  done  here,  and  a  non-numeric  character 
will  cause  the  program  to  abort. 

) 

var  Temp  :  real  ; 
begin 

readln(Temp)  ; 

Int  :=  abs(round<Temp) )  ; 

Readlnt  :=  (Int  >=  Low)  and  (Int  <=  High)  ; 
end  :  (function  Readlnt) 


■function  Okay  :  boolean  ; 

{ 

Called  from  :  Numerous  procedures 
Returns  to  :  Calling  procedure 

Purpose  :  Suspends  execution  until  the  prompting 
question  is  answered  with  a  y/Y  or  n/N. 

Description  :  Solicits  user  -for  y/Y  or  n/N  and  returns  true  -for  y/Y 

) 

var  Response  :  char  ; 
begin 
repeat 

write< 'Enter  y  or  Y  for  yes,  n  or  N  for  no  >  ')  ; 
readln< Response)  ; 

until  Response  in  l'y'  f'Y' ,'n' ,'N'l  ; 

Okay  :=  Response  in  Y']  ; 

end  ;  {function  Okay} 

procedure  WriteTit le(Ti tie  :  STR35)  ; 

{ 

Called  from  :  Numerous  procedures 
Returns  to  :  Calling  procedure 

Purpose  :  Displays  a  single  line  title  and  2  blank  lines 


Description 

} 


Scrolls  previous  information  off  screen  and  writes 
title  for  screen. 


begin 

Cl  ear Screen  ; 
wri teln<Ti tie)  5 
writeln  ; 
writeln  j 

end  ;  {procedure  Wri teTi tie) 


D- 10 


procedure  ListBaseFacts<Ti tl e  :  STR35  ;  Basetype  :  BASEFACTS)  ; 
{ 

Called  from  :  ListFactors  and  SetFactors  procedures 
Returns  to  :  Calling  procedure 


Purpose 


Displays  the  table  of  factor  infomation 


Description  :  Scrolls  previous  information  off  screen  and  writes 
title  for  screen.  Two  loops  write  the  information 
lines  for  the  particular  table  requested. 


var  Row,  Col  :  integer  ; 
begin 

WriteTitle(Title)  ; 
write</  ')  ; 

for  Col  :=  1  to  MAXACSORTS  do  wr i teCAckindsfCol ])  ; 
for  Row  :=  1  to  MAXADKINDS  do 
begin 

writeln  ; 

wri te<AdkindsCRowl ')  ; 
for  Col  :=  1  to  httXACSORTS  do 

wr i te(Basetype[Row,Col ] :4:2, '  ')  ; 

end  ; 
writeln  j 

end  ;  {procedure  Lis*BaseFacts> 


D-l  1 


*  *.'  *.‘\.***/‘  •  •*«  •*.  "’i  *’,  •*.  •*  V  *.*  *.«  * 


procedure  ListOtherFacts<Title  :  STR35  ;  Factor  :  FACTORS  ; 

Numatribs  :  integer  ;  Attribute  :  DESCRIPS) 

< 

Called  from  :  ListFactors  and  SetFactors  procedures 
Returns  to  :  Calling  procedure 


Purpose 


Displays  the  table  o-f  factor  intonation 


Description  :  Scrolls  previous  information  off  screen  and  writes 
title  for  screen.  Two  loops  write  the  information 
lines  for  the  particular  table  requested. 


var  Row,  Col  :  integer  j 
begin 

WriteTitle(Title)  ; 
write<7  7>  5 

for  Col  :=  1  to  Numatribs  do  wri te<Attr ibuteCCol 3)  ; 
for  Row  :=  1  to  MAXADKINDS  do 
begin 
wri tel n  ; 

wri te<Adkinds[Row] , 7  7>  ; 

for  Col  1  to  Numatribs  do 

write<Factor[Row,Co1I:4:2,7  7>  ; 

end  ; 
writeln  ; 

end  j  {procedure  ListOtherFacts) 

procedure  ShowLists  ; 

{ 

Called  from  :  ListFactors  and  SetFactors  procedures 


Returns  to  :  Calling  procedure 


Purpose 


Displays  the  list  of  factors 


Description  :  Scrolls  previous  information  off  screen  and  writes 
title  for  screen  and  list  information. 


) 

begin 

WriteTitle<7  P  A  R  A  M 
wri  tel  n<  'A  :  ENGAGEMEN 

writeln  ; 

wri te1n( 'B  :  HIT  PROBA 

writeln  j 

writeln('C  :  LOCATION 

writeln  ; 

writeln('D  :  TACTIC  FA 

writeln  ; 

writeln<'E  s  ASPECT  FA 

writeln  ; 

end  ;  (procedure  ShowLists) 


PARAMETER  LISTS  ' 
ENGAGEMENT  PROBABILITY  BASE")  ; 

HIT  PROBABILITY  BASE7)  ; 

LOCATION  FACTOR7)  ; 

TACTIC  FACTOR7)  ; 

ASPECT  FACTfflt7)  ; 


procedure  WriteMainMenu<var  Choice  :  char)  ; 


(X 

Main  Program  Choice  'A' 

X) 

C 

Called  'from  :  Main  Program 
Returns  to  :  Operating  System 

Purpose  :  To  present  the  choices  -for  entering  the  Air  Defense 
Unit  data  or  Aircraft  data,  conducting  an  engagement 
setting  parameters  or  ending  the  program. 

Description  :  The  user  is  given  5  choices  in  a  menu  presentation. 

> 

begin 

Wri teTi tle< '  MAIN  MENU  ')  ; 

wri tel n('A  :  DISPLAY  AIR  DEFENSE  MENU')  ; 
wri tel n  ; 

writelnC'B  :  DISPLAY  AIRCRAFT  MENU')  ; 

wri tel n  ; 

writeln('C  :  CONDUCT  ENGAGEMENTS')  ; 

wri tel n  ; 

wri te1n< 'D  8  DISPLAY  PAfWMETER  MENU  I')  5 

wri tel n  ; 

writelni'E  :  END  PROGRAM')  ; 

wri tel n  5 

GetChoice< 'B','C','D'f'E' 1', Choice) 
end  :  {procedure  Wri teMainMenu) 


procedure  MriteDefenseMenu<var  Choice  :  char) $ 

<* 

Main  Program  Choice  'B' 

X) 

{ 

Called  from  :  Main  Menu 
Returns  to  :  Main  Menu 

Purpose  :  To  present  the  choices  -for  entering  the  Air  Defense 
Unit  data. 

Description  :  The  user  is  given  5  choices  in  a  menu  presentation. 

) 

begin 

WriteTitle<'  AIR  DEFENSE  MENU  ')  5 
wri tel n< 'A  :  ENTER  DESCRIPTION  OF')  ; 
wri tel n( '  AIR  DEFENSE  UNITS')  5 

writeln  ; 

wri teln< 'B  s  LIST  CURRENTLY  ENTERED')  5 
wri tel n<'  AIR  DEFENSE  UNITS')  ; 

writeln  ; 

writeln<'C  :  SAVE  DATA')  ; 

writeln  ; 

wri teln<'D  :  RESTORE  DATA')  ; 

writeln  5 

writelnf'E  :  EXIT  TO  rV^IN  MENU')  5 
writeln  ; 

GetChoice<'F','G' f'H' , 'I  VA','2', Choice)  ; 
end  ;  {procedure  Wri teDe-fenderMenu) 


procedure  Wri teAircraftMenu(var  Choice  :  char); 


<* 

Main  Program  Choice  7C7 
X) 

{ 

Called  from  ;  Main  Menu 
Returns  to  :  Main  Menu 

Purpose  :  To  present  the  choices  for  entering  the  Aircraft  dat 
Description  i  The  user  is  given  5  choices  in  a  menu  presentation. 

} 

begin 

Hri teTi t1e( 7  AIRCRAFT  MENU  ')  ; 

wri teln<7A  :  ENTER  DESCRIPTION  OF  AIRCRAFT7)  5 
writeln  ; 

writeln(7B  :  LIST  CURRENTLY  ENTERED  AIRCRAFT7)  ; 
writeln  ; 

wri teln< 7C  :  SfWE  DATA7)  ; 
writeln  ; 

wri teln< '0  s  RESTORE  DATA7)  ; 
writeln  ; 

wri teln< 7E  s  EXIT  TO  MAIN  MENU7)  ; 
writeln  ; 

GetChoice< 7 J7 , 7K7 , 7L7 , 7M7 , 7A7  , 737  .Choice)  ; 
end  5  {procedure  Wri teAircraf tMenu) 


procedure  ConductEngagements<var  Choice  :  char)  ; 

<X 

Main  Program  Choice  '0' 

X) 

{ 

Called  from  :  Main  Menu 
Returns  to  :  Main  Menu 

Purpose  :  To  produce  the  probabilities  of  engagement  and  hit 

for  the  entered  Air  Defense  Unit  and  Aircraft  number. 

Description  : 

The  user  is  solicited  for  an  Air  Defense  Unit  number  and  an  Aircraft 
number,  given  the  option  of  ending  the  engagement  routine  by  entering 
a  8  for  either.  If  active  Unit  and  Aircraft  numbers  are  entered,  the 
statistics  for  each  is  displayed  and  the  engagement  conducted. 

The  probability  of  engagement  is  calculated  (Threshold)  from  the 
engagement  base  (PEbase) ,  location,  tactic  and  aspect  factors,  and 
effectiveness  level.  If  the  random  number  generator  returns  a  number 
less  than  this  Threshold  then  the  calculations  for  determining  whether 
the  Aircraft  was  hit  are  begun.  A  new  Threshold  for  probability  of  hit 
is  calculated  with  PHbase  and  the  same  factors  and  determination  is  made 
with  the  random  number  generator  if  the  Aircraft  was  hit. 

If  the  Aircraft  was  hit,  tests  are  made  with  random  numbers  against  the 
current  probabilities  of  suppression  (Suprsprob)  and  attrition  (Atritprob) 
and,  if  necessary,  the  effectiveness  level  of  the  Air  Defense  Unit  is 
decremented  by  the  current  attrition  factor  (Atri tfactor) . 

The  user  is  then  asked  if  another  engagement  is  to  be  conducted. 

> 

var 

Adi ndex , Ac  index , Counter  :  integer  ; 

Sawaircraft , Done, None  :  boolean  ; 


procedure  GetADIndex(var  Adindex  :  integer  ;  var  Done  :  boolean) 
var  Activeindex  :  boolean  ; 

Counter  :  integer  j 

begin 

Activeindex  :=  -false  ; 
while  not  Activeindex  do 
begin 
repeat 

wri tel n< "Enter  Air  Defense  Unit  number")  5 
wri tel n< 'between  1  and  " ,MAXADUNITS:2)  ; 
write<"or  8  to  exit  )  ')  ; 
until  Readlnt(Adindex,0,HAXADUNITS)  ; 

Done  :=  Adindex  -  0  ; 
if  Done  then  Activeindex  :=  Done 
else  Activeindex  :*  AdunitlAdindex] .Isactive  ; 
if  not  Done  and  not  Activeindex  then 
begin 

wri tel n< "That  Unit  has  not  been  entered.")  ; 
writeln  ; 

wr i tel n< "Avail able  Units  are:")  ; 
for  Counter  :*  1  to  10  do 

if  Adun it [Counter] .Isactive  then  wri te< Counter: 3)  5 
writeln  ; 

for  Counter  :**  11  to  NAXADIMITS  do 

if  AduniH Counter]  .Isactive  then  wri  te< Counter : 3)  ; 
writeln  ; 
writeln  ; 
end  ;  (if) 
end  ;  {while) 
writeln  ; 

end  ;  {procedure  GetADlndex) 


procedure  GetAc Index (var  Ac  index  :  integer  ;  var  Done  :  boolean) 
var  Activeindex  :  boolean  ; 

Counter  :  integer  ; 

begin 

Activeindex  -false  ; 
while  not  Activeindex  do 
begin 
repeat 

wri teln('Enter  Aircraft  number'')  ; 
wri tel n< 'between  1  and  ' ,MAXAIRCRAF:2>  ; 
write('or  0  to  exit  )  ')  5 
until  ReadInt<Acindex,0,MAXAIRCRAF)  ; 

Done  :=  Ac  index  *  0  ; 

if  Done  then  Activeindex  :*  Done 

else  Activeindex  :*  Aircraf t [Ac index) . Isactive  ; 
if  not  Done  and  not  Activeindex  then 
begin 

wri tel n< 'That  Aircraft  has  not  been  entered.')  ; 
writeln  5 

writelnf'Avai table  Aircraft  are:')  ; 
for  Counter  :«=  1  to  10  do 

if  Aircraf ttCounterl . Isactive  then  wri te( Counter : 3) 
writeln  ; 

for  Counter  :«  11  to  MAXADUNITS  do 

if  Aircraf tICounter] .Isactive  then  wri te< Counter: 3) 
writeln  5 
writeln  ; 
end  ;  (if) 
end  ;  {while) 

end  ;  {procedure  GetAc Index) 

procedure  ShowSpecs( Ad index , Ac  index  :  integer)  ; 

begin 

with  Aduni tCAdindex!  do  with  Aircraf t [Ac index 3  do  begin 
WriteTitleCE  NGAGEMENT  RESULTS')  5 
writeln('Air  Defense  Unit:  'tAdindex:2)  ; 
writeln<'  AD  System  Type:  ' ,Adkinds[KindJ>  5 
write1n('  Location:  ' ,Adp1 aces( Location  I)  ; 

writeln('  Effectiveness:  ' ,Effectlevel :4:2)  ; 

writelnf'  Aircraft:  ',Acindex:2)  ; 

writeln<'  Aircraft  Type:  ' ,Ackinds[SortI)  ; 

writeln('  Tactic:  ' ,ActacticsETacticI)  ; 

writeln<'  Aspect:  ' ,Acaspects(AspectI)  ; 

writeln  ; 
end  ;  {with) 

end  ;  {procedure  ShowSpecs) 


procedure  GetEngaged(Adindex , Ac  index  :  integer  ;  var  Sawaircraft  :  boolean) 
var 

Threshold  :  real  ; 

Randnum  :  integer  ; 
begin 

with  Aduni tiAdindex]  do  with  Aircraft [Ac index 3  do  begin 
Threshold  :*  PEbase[Kind,Sort3  X  PI ace-f acttKind, Location] 

X  TactifactCKind, Tactic]  X  AspecfactCKind, Aspect] 

X  Effect level  X  188  ; 

Randnum  :«  Uniform  ; 
if  Randnum  >  Threshold  then 

Sawaircraft  :=  false  else  Sawaircraft  :=  true  ; 
if  Sawaircraft  then 
writeln<'}>  Aircraft  was  engaged.') 
else  writeln<'»  Aircraft  was  not  engaged.')  ; 

wr i tel n(' Random  number:  '  ,Randnum:2, '  Threshold:  ', Thresholds :  1)  ; 
writeln  ; 
end  ;  {with) 

end  :  {procedure  GetEngaged) 


procedure  Cal  cResul ts(Adindex ,  Acindex  :  integer)  ; 
var 

Threshold  :  real  ; 

P»rd.'ija«  :  integer  ; 

Hitaircraft  :  boolean  ; 
begin 

with  AdunitCAdindex]  do  with  Aircraf ttAcindex]  do  begin 
Threshold  :=  PHbaseCKind,Sor  t3  X  PI  ace-fact  [Kind, Location] 

X  Tacti-factCKind, Tactic]  X  Aspec-factlKind, Aspect] 
X  Effectlevel  X  100  ; 

Randnum  :»  Uniform  ; 
if  Randnum  >  Threshold  then 

Hitaircraft  :=  false  else  Hitaircraft  :=  true  ; 
if  Hitaircraft  then  begin 

writeln<')>  Aircraft  was  hit.')  ; 
write<' Random  number:  ' , Randnum: 2)  ; 
writeln<'  Thresholds  ' .Threshold: 4: 1)  ; 
writeln  ; 

if  Uniform  >  Suprsprob  X  100  then 
begin 

write1n('»  Aircraft  was  suppressed. ')  } 
writeln('»  Aircraft  mission  was  aborted. ')  ; 
end  <if  Uniform) 

else  writeln('»  Aircraft  was  destroyed.')  j 
end  (if  Hitaircraft) 
else  begin 

writeln<')>  Aircraft  was  not  hit.')  ; 
writet 'Random  number:  ', Randnum: 2)  ; 
writeln('  Threshold:  ' (Threshold :4: 1)  ; 
writeln  ; 

if  Uniform  )  Atritprob  X  100  then 
begin 

writeln('»  Air  Defense  Unit  was  suppressed.')  ; 
writeln('))  Effectiveness  reduced  by  ' ,Atr i tf actor :3:2 
Effectlevel  s«  Effectlevel  -  Atritfactor  ; 
end  {if  Uniform) 

else  writeln('»  Air  Defense  Unit  was  not  suppressed.')  ; 
end  ;  {else) 
end  ;  {with) 

end  ;  {procedure  CalcResults) 


begin  {procedure  Conduct Engagements) 

Done  :=  false  ; 
while  not  Done  do  begin 
None  :=  true  ; 

Mri teTi tl e< '  ENGAGEMENTS  ')  5 

for  Counter  :=  1  to  MAXADUNITS  do  <a  check  for  entered  Units) 
if  Aduni t( Counter] .Isactive  then  None  : *  false  ; 
if  None  then 
begin 

Done  :=  true  ; 

writelnC'No  Air  Defense  Units  have  been  entered.7)  ; 
wri tel n< 'Please  enter  Air  Defense  Units  from  the')  ; 
writeln<'Air  Defense  Menu.')  ; 

Mai tforReturn  ; 
end 
else 
begin 

None  :=  true  ; 

for  Counter  :=  1  to  MAXAIRCRAF  do  (a  check  for  entered  Aircraft) 
if  Aircraf tlCounterl  .Isactive  then  None  :«  false  ; 
if  None  then 
begin 

Done  :=  true  ; 

wri tel n< 'No  Aircraft  have  been  entered.')  ; 
writelnf'Please  enter  Aircraft  from  the')  ; 
writelnf'Aircraf t  Menu.')  ; 

Mai tforReturn  ; 
end  ; 

end  ;  {else) 

if  not  Done  then  GetADIndex<Adindex ,Done)  ; 
if  not  Done  then  GetAc Index (Ac index, Done)  j 
if  not  Done  then 
begin 

ShowSpecs<Adindex, Ac  index)  ; 

6etEngaged(Adindex , Ac  index ,Sawair craft)  ; 
if  Sawaircraft  then  Cal cResul ts<Adindex , Ac  index)  ; 
wri tel n  ; 

wri teln( 'Conduct  another  engagement?')  ; 

Done  :*  not  Okay 
end  ;  (if  not  Done) 
end  ;  (while  not  Done) 

Choice  :*  'A'  5  (return  to  Main  Menu) 
end  ;  (procedure  Con duct Engagements) 


procedure  ChangeParameters<var  Choice  :  char) ; 


<* 

Main  Program  Choice  'E' 

X) 

{ 

Called  from  :  Main  Menu 

Returns  to  :  Main  Menu 

Purpose  :  To  present  the  choices  for  changing  the  program 
parameters  of  random  number  seed,  probabilities 
of  engagement  and  hit,  and  threshold,  attrition 
and  suppression  factors. 

Description  :  The  user  is  given  5  choices  in  a  menu  presentation 
3 


PAR 

LIST 


A  M  E  T 
CURRENT 


E  R  MENU 
PARAMETERS') 


begin 

WriteTitlet' 
writelnt'A 
writeln  ; 
wri te1n< 'B 
writeln  ; 
writelnC'C 
writeln  ; 
writeln('D 
writeln  ; 
write1n<'E 
writeln  ; 

Get Choi ce< 'N' ,'0' ,'P' ,  'Q' , 'A' ,  '4' , Choice) 
end  ;  {procedure  ChangeParameters) 


') 


SET/SAVE  PARAMETERS') 


SET  RANDOM  NUMBER  SEED')  ; 

SET  ATTRITION/SUPPRESSION  FACTORS') 


:  EXIT  TO  MAIN  MENU')  ; 
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procedure  EnterADuni ts<var  Choice  :  char) 


i 


<* 

Main  Program  Choice  'F' 

X) 

{ 

Called  from  :  Air  Defense  Menu 
Returns  to  :  Air  Defense  Menu 

Purpose  :  To  enter  information  about  the  Air  Defense  Units 
in  the  array  Adunits. 


Description  : 


The  array  of  Air  Defense  Units  is  tested  for  the  first  available 
record  with  the  Isactive  field  set  to  false.  The  user  is  told 
either  that  the  array  is  full  or  what  the  next  available  record  is 
and  is  solicited  for  the  Unit  number  to  enter  or  0  to  terminate. 


The  user  then  is  presented  with  the  choices  for  Air  Defense  Unit 
type,  location  and  effectiveness  level.  Once  the  Unit  record  is 
completed  the  user  is  asked  if  another  Unit  is  to  be  described. 


var 

Index  :  integer  ; 

Done  :  boolean  ; 

procedure  Get  Index  ; 
begin 

WriteTitle('  Air  Defense  Unit  Descriptions  ')  ; 

Index  :=  0  ; 
repeat 

Index  :=  Index  +  1  ; 

until  (<not  Adunit [Index! .Isactive)  or  (Index  =  MAXADUNITS))  ; 
if  ((Index  =  MAXADUNITS)  and  (Aduni t (Index] . Isactive) )  then 
wri teln( 'Air  Defense  Unit  array  is  full') 
else  wri tel n( 'Next  available  Unit  number:  ',Index:2>  ; 
repeat 
wri tel n  ; 

writeln('Enter  Air  Defense  Unit  number')  ; 
wri tel n( 'between  1  and  MAXADUNITS: 2)  ; 

write  ('or  0  to  exit  >  ')  5 
until  ReadInt(Index,B, MAXADUNITS)  ; 
end  :  (procedure  Getlndex) 


procedure  GetAdKind  ; 

var  Counter  :  integer  5 
begin 

WriteTitle<"  Air  Defense  Unit  Descriptions  ")  ; 
write1n("  Specify  Air  Defense  Unit  Type')  ; 
writeln  ; 

for  Counter  1  to  MAXADKINDS  do 
begin 

writeln<"  " , Counter :2, "  :  " ,Adkinds( Counter!) 

writeln  ; 
end  ; 
repeat 

write< "Enter  Air  Defense  Unit  type  >  ") 
until  ReadInt(Aduni t[ Index] .Kind, 1 , MAXADKINDS)  ; 
end  ;  {procedure  GetAdKind} 

procedure  GetAdLocation  ; 

var  Counter  :  integer  ; 
begin 

WriteTit1e<"  Air  Defense  Unit  Descriptions  ">  5 
writeln("  Specify  Air  Defense  Unit  Location")  ; 
writeln  ; 

for  Counter  :=  1  to  MAXADPLACE  do 
begin 

writeln<"  " , Counter :2, "  :  " ,AdplacesI Counter]] 

writeln  ; 
end  ; 
repeat 

write< "Enter  Air  Defense  Unit  location  )  ") 
until  ReadInt(Aduni tt Index] .Location , 1 , MAXADPLACE)  ; 
end  ;  {procedure  GetAdLocation) 


" , Adpl aces! Counter ] ) 
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procedure  GetEf fee tLevel  ; 
begin 

WriteTitle</  Air  Defense  Unit  Descriptions  ')  ; 
write1n< 'Specify  Air  Defense  Unit  Effectiveness7)  ; 
with  Adunit [Index)  do 
repeat 
writeln  ; 

wri te1n< 'Enter  the  decimal  effectiveness  level7)  ; 
write  <7of  the  Air  Defense  Unit  <0.00  -  1.00)  >  7) 
readl n<Effect level)  ; 

until  (Effectlevel  >=  0.0)  and  (Effectlevel  <=  1.0)  ; 
end  ;  [procedure  GetEf f ect Level ) 

begin  [procedure  EnterADuni ts> 

Done  :=  false  ; 
repeat 

Get Index  ; 

if  Index  =  0  then  Done  :=  true 
el  se 
begin 

Aduni t[ Index] .Isactive  :=  true  ; 

GetAdKind  ; 

GetAdLocation  ; 

GetEf fectLevel  ; 
end  ; 

until  Done  ; 

Choice  :=  7B7  ;  [return  to  the  Air  Defense  Menu) 
end  ;  [procedure  EnterADuni ts) 


procedure  ListADuni ts(var  Choice  :  char)  ; 


Main  Program  Choice  "G" 


Called  'from  :  Air  Defense  Menu 


Returns  to  :  Air  Defense  Menu 


Purpose 


To  display  the  currently  entered  Air  Defense  Units. 


Description  :  The  Air  Defense  Unit  array  Adunit  is  examined  for  any 
Isactive  entries  which  are  displayed  10  at  a  time.  If 
no  Air  Defense  Units  have  been  entered  an  appropriate 
message  is  displayed. 


Index, Counter  :  integer  ; 

None  :  boolean  ; 

begin 

WriteTitlet"  Air  Defense  Unit  Descriptions  ">  ; 


Location  Effectiveness")  ; 


Counter  :=  0  ;  {for  number  of  lines  displayed) 

None  :=  true  ; 

wr i tel n< "Number  Type  Location  Effectiveness")  ; 

writeln  5 

for  Index  !=  1  to  hWXADUNITS  do 
with  Adunit [Index I  do 
if  Isactive  then 
begin 

Counter  :=  Counter  ♦  1  5 
None  :=  false  ; 

if  Counter  =  11  then  {Display  only  10  at  a  time) 

begin 

writeln  ; 

wri tel n<"  -  More  -">  ; 

Wai tf orReturn  ; 

Counter  s=  0  ; 
end  }  {if) 

wri teln< Index :3, "  " ,Adkinds[ Kindi , 

Adpl aces(Location) ,Effectl evel :7:2>  ; 

end  ; 

if  None  then  wri tel n( "No  Air  Defense  Units  have  been  entered")  5 
Mai tf orReturn  ; 

Choice  !=  "B"  5  {return  to  Air  Defense  Menu) 
end  ;  {procedure  ListADunits) 


{Display  only  10  at  a  time) 


-  More  -">  ; 


.7 


procedure  AdSaveData(var  Choice  :  char)  ; 


(X 

X) 

{ 

Called  from 
Returns  to 
Purpose 

Description 

) 


Main  Program  Choice  'H' 


i  Air  Defense  Menu 
:  Air  Defense  Menu 

:  To  save  the  current  Air  Defense  Unit  array  Adunit 
in  the  file  Adsave. 

:  This  procedure  is  highly  operating  system 
and  compiler  dependant. 


begin 

ClearScreen  ; 

wri tel n( 'Saving  the  array  of  currently  entered')  ; 
writeln('Air  Defense  Units  will  overwrite  the')  ; 
writeln('information  currently  saved.')  j 
wri tel n  ; 
writeln  ; 

writeln<'Do  you  wish  to  continue?')  ; 
if  Okay  then 
begin 
(XX) 

(NO  implementation) 
writeln  ; 

wri tel n( 'This  procedure  to  be  implemented  by  user.')  ; 

(XX) 

Wai tforReturn  ; 
end  ; 

Choice  s=  'B'  ;  (return  to  the  Air  Defense  Unit  menu) 
end  ;  (procedure  AdSaveData) 


procedure  AdGetDatatvar  Choice  :  char) 


» 


Main  Program  Choice  'I' 


Called  from  :  Air  Defense  Menu 
Returns  to  :  Air  Defense  Menu 

Purpose  ;  To  restore  the  current  Air  Defense  Unit  array  Adunit 
from  the  file  Adsave. 

Description  :  This  procedure  is  highly  operating  system 
and  compiler  dependant. 


begin 

ClearScreen  ; 

wri  teln< 'Restoring  Air  Defense  Unit  Data')  5 
writelnt'wil 1  overwrite  the  information')  ; 
writelnt'currently  in  use.')  ; 
writeln  ; 
writeln  ; 

writelnt'Do  you  wish  to  continue?')  ; 
if  Okay  then 
begin 
(XX) 

<N0  implementation) 
writeln  ; 

writelni'This  procedure  to  be  implemented  by  user.')  5 

(XX) 

Wai tforReturn  5 
end  ; 

Choice  :*  'B'  5  (return  to  Air  Defense  Unit  menu) 
end  ;  (procedure  AdGetData) 
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procedure  EnterAircraf t<var  Choice  :  char) 


f 


(X 

Main  Program  Choice  '  J' 

X) 

( 

Called  from  :  Aircraft  Menu 
Returns  to  :  Aircraft  Menu 

Purpose  :  To  enter  information  about  the  Aircraft  in  the 
array  Aircraft. 

Description  : 

The  array  of  Aircraft  is  tested  for  the  first  available  record 
with  the  Isactive  field  set  to  false.  The  user  is  told  either 
that  the  array  is  full  or  what  the  next  available  record  is  and 
is  solicited  for  the  Aircraft  number  to  enter  or  0  to  terminate. 

The  user  then  is  presented  with  the  choices  for  Aircraft  sort, 
tactic,  and  aspect.  Once  the  Aircraft  record  is  completed  the 
user  is  asked  if  another  Aircraft  is  to  be  described. 


) 


var 

Index  :  integer  ; 

Done  :  boolean  ; 

procedure  Get Index  ; 
begin 

WriteTitlet'  Aircraft  Descriptions  ')  ; 

Index  0  ; 
repeat 

Index  :s  Index  ♦  1  ; 

until  (<not  Aircraf tllndex] . Isactive)  or  (Index  =  MAXAIRCRAF)) 
if  ((Index  =  MAXAIRCRAF)  and  (Aircraf t[ Index! . Isactive) )  then 
write1n('Aircraf t  array  is  full') 
else  wri tel n( 'Next  available  aircraft  number  is  ',Index:2)  ; 
repeat 
writeln  ; 

wri teln( 'Enter  Aircraft  number')  ; 
wri tel n(' between  1  and  ', MAXAIRCRAF: 2)  ; 
write  ('or  0  to  exit  >  ')  | 
until  Readlnt( Index, 0 ,MAXAIRCRAF)  ; 
end  ;  (procedure  Getlndex) 


procedure  Get Ac Sort  ; 

var  Counter  :  integer  ; 
begin 

WriteTitlet'  Aircraft  Descriptions  ')  } 

writelnt'  Specify  Aircraft  Type')  5 
writeln  ; 

for  Counter  :*  1  to  MAXACSORTS  do 
begin 

writeln<'  ' , Counter :2, '  s  ' ,Ac  kinds!  Counter!) 

writeln  ; 
end  ; 
repeat 

writet'Enter  Aircraft  type  5  ') 
until  ReadInt(Aircraf tCIndex] .Sort , 1 , MAXACSORTS)  ; 
end  j  {procedure  GetAcSort) 

procedure  GetAcTactic  ; 

var  Counter  :  integer  ; 
begin 

WriteTitle<'  Aircraft  Descriptions  ')  ; 

writelnt'  Specify  Aircraft  Tactic')  { 
writeln  ; 

for  Counter  s*  1  to  MAXACTACTS  do 
begin 

writelnt'  ', Counter :2,'  :  ' ,Ac tactics! Counter]) 

writeln  ; 
end  ; 
repeat 

write<'Enter  Aircraft  tactic  >  ') 
until  ReadInt<Aircraft[ Index]. Tactic, I, MAXACTACTS)  ; 
end  ;  {procedure  GetAcTactic) 


procedure  Get Ac Aspect  ; 

van  Counter  :  integer  ; 
begin 

WriteTitle<'  Aircraft  Descriptions  ')  ; 

writelnt'  Specify  Aircraft  Aspect')  ; 
writeln  ; 

for  Counter  :*  1  to  MAXACASPEC  do 
begin 

write>n<'  Counter t2, '  :  ' ,Ac aspects! Counter]) 

writeln  ; 
end  ; 
repeat 

write<'Enter  Aircraft  aspect  >  ') 
until  Readlnt(Aircraf ttlndex] .Aspect, 1, MAXACASPEC)  ; 
end  ;  (procedure  GetAcAspect) 

begin  (procedure  EnterAircraf t) 

Done  :=  false  ; 
repeat 

Get Index  ; 

if  Index  ■  0  then  Done  s=*  true 
else 
begin 

Aircraft! Index! . Isactive  ia  true  ; 

GetAcSort  ; 

GetAcTactic  5 
GetAcAspec t  ; 
end  ; 

until  Done  ; 

Choice  :=  'C'  j  (return  to  Aircraft  Menu) 
end  :  (procedure  EnterAircraf t> 


procedure  ListAircraf t<var  Choice  i  char)  ; 


(X 

Main  Program  Choice  'K' 

X) 

C 

Called  from  j  Aircraft  Menu 
Returns  to  :  Aircraft  Menu 

Purpose  s  To  display  the  currently  entered  Aircraft. 

Description  :  The  Aircraft  array  Aircraft  is  examined  for  any 

Isactive  entries  which  are  displayed  10  at  a  time. 
If  no  Aircraft  have  been  entered  an  appropriate 
message  is  displayed. 


var 
Index , 

Counter  :  integer  j 
None  :  boolean  ; 
begin 

Counter  :«  0  ;  (for  number  of  lines  displayed) 

None  :*  true  ; 

MriteTitle('  Aircraft  Descriptions  ')  5 

writeln ('Number  Type  Tactic  Aspect')  ; 
writeln  ; 

for  Index  :«  1  to  MAXAIRCRAF  do 
with  Aircraf tllndex]  do 
if  Isactive  then 
begin 

Counter  s=  Counter  +  1  ; 

None  :=  false  j 

if  Counter  =  11  then  (Display  only  10  at  a  time) 

begin 
writeln  5 

wri teln< '  -  More  -')  ; 

Mai tforReturn  ; 

Counter  :=  0  • 
end  ;  (if) 

wri teln( Index :3, '  ' fAckindsISor t! , ' 

Ac tactics(Tactic3,Acaspects[ Aspect!)  5 

end  5  (if) 

if  None  then  writeln('No  Aircraft  have  been  entered')  j 
Mai tforReturn  j 

Choice  :*  'C'  {  (return  to  Aircraft  Menu) 
end  j  (procedure  ListAircraf t) 


procedure  AcSaveDatatvar  Choice  :  char)  ; 


<X 

X) 

{ 

Called  'from 
Returns  to 
Purpose 

Description 

> 


Main  Program  Choice  'L' 


Aircraft  Menu 
Aircraft  Menu 

To  save  the  current  Aircraft  array  Aircraft 
in  the  file  Acsave. 

This  procedure  is  highly  operating  system 
and  compiler  dependant. 


begin 

Cl  ear Screen  j 

wri tel n( 'Saving  the  array  of  currently  entered')  ; 
wri tel n< 'Aircraft  will  overwrite  the  information')  ; 
write1n('current1y  saved.')  ; 
writeln  ; 
writeln  ; 

writelnt'Do  you  wish  to  continue?')  ; 
if  Okay  then 
begin 
<XX) 

(NO  implementation) 
writeln  ; 

wri teln( 'This  procedure  to  be  implemented  by  user.') 

(XX) 

MaitforReturn  ; 
end  ; 

Choice  :*  'C'  5  {return  to  the  Aircraft  menu) 
end  ;  {procedure  AcSaveData) 


procedure  AcGetDataCvar  Choice  i  char)  ; 


(X 

X) 

{ 

Called  from 
Returns  to 
Purpose 

Description 

5 


Main  Program  Choice  'M' 


:  Aircraft  Menu 
:  Aircraft  Menu 

:  To  restore  the  current  Aircraft  array  Aircraft 
from  the  file  Acsave. 

:  This  procedure  is  highly  operating  system 
and  compiler  dependant. 


begin 

ClearScreen  ; 

wri te1n< 'Restoring  the  Aircraft  data')  ; 
wri tel n< 'wi 1 1  overwrite  the  information')  ; 
wri teln< 'currentl y  in  use.')  ; 
wri tel n  ; 
writeln  ; 

writeln<'Do  you  wish  to  continue?')  ; 
if  Okay  then 
begin 
(XX) 

<N0  implementation) 
writeln  j 

wri tel n< 'This  procedure  to  be  implemented  by  user.')  ; 

(XX) 

Wai tforReturn  ; 
end  ; 

Choice  :*  'C'  ;  (return  to  Aircraft  menu) 


end  ;  (procedure  AcGetData) 


V- 


procedure  ListFactors<var  Choice  :  char)  j 
(X 

Main  Program  Choice  'N7 

JO 

{ 

Called  from  :  Parameter  Menu 
Returns  to  :  Parameter  Menu 

Purpose  :  To  present  the  choices  for  displaying  the  current 
probabilities  of  engagement  and  hit  and  factor 
data  arrays. 

Description  :  The  user  is  given  5  choices  in  a  menu  presentation. 

} 

var  Done  :  boolean  ; 
begin 

Done  :=  false  ; 
repeat 

ShowLists  ; 

wri tel n< 'Enter  letter  for  parameters  to  display7)  ; 

GetXChoice< 'A' ,7B7 ,7C7 ,7D7 ,'E' ,7X7 , Choice)  ; 
case  Choice  of 

7A7  :  ListBaseFacts  <7  Probability  of  Engagement  Base  7,PEbase)  ; 
'B7  :  ListBaseFacts  <'  Probability  of  Hit  Base  7 ,PHbase)  ; 

7C7  :  ListOtherFacts<7  Location  Factors  7,Placefact 

MAXADPLACE,  Adplaces)  ; 

7D7  :  ListOtherFacts<7  Tactics  Factors  7,Tactifact 

MAXACTACTS,  Actactics)  ; 

7E7  :  ListOtherFacts<7  Aspect  Factors  7,Aspecfact 

MAXACASPEC,  Acaspects)  ; 

7X7  :  Done  true  j 
end  ;  (case) 

if  not  Done  then  Mai tforReturn  ; 
until  Done  ; 

Choice  :=  7E7  {return  to  Parameter  Menu) 
end  i  (procedure  Listfactors) 


procedure  Wr i teParaMenu2(var  Choice  :  char); 


<X 

Main  Proyam  Choice  "O' 

X) 

{ 

Called  from  :  Parameter  Menu 
Returns  to  :  Parameter  Menu 

Purpose  :  To  present  the  choices  -for  changing  the  parameters 


Description 

) 


The  user  is  given  5  choices  in  a  menu  presentation 
May  be  exited  without  changing  any  parameters. 


begin 

WriteTitle<'  PARAMETER  MENU  2  ')  ; 

wri tel n< 'A  :  CHANGE  PARAMETERS')  ; 
writeln  ; 

writeln<'B  :  SAVE  BASE  VALUES')  ; 
writeln  ; 

writeln('C  :  RESTORE  BASE  VALUES')  ; 

writeln  ; 

writeln('D  s  SWE  FACTORS')  ; 

writeln  ; 

wr i teln< 'E  :  RESTORE  FACTORS')  j 
writeln  ; 

GetXChoice< 'R' , 'S' , 'T' , 'U' , 'V' , 'E' .Choice)  ; 
end  ;  (procedure  Wri teParaMenu2) 


procedure  SetSeed(var  Choice  :  char)  ; 

(X 

Main  Proyam  Choice  "P" 

X> 

£ 

Called  from  :  Parameter  Menu  2 
Returns  to  :  Parameter  Menu  2 

Purpose  i  To  allow  changing  of  the  random  number  seed 

Description  :  The  current  random  number  seed  is  displayed 
the  user  is  told  the  acceptable  value  range 
and  is  solicited  for  a  new  value.  The  new 
value  is  displayed. 

var  Counter  :  integer  ; 
begin 

Wri teTitleC"  SET  RANDOM  NUMBER  SEED  ">  ; 

wri tel n< "Current  random  number  seed:  ",Seed>  ; 
wri te!n(" Initial  random  number  seed:  " , STREAMSEED)  ; 
wri tel n  ; 

writeln("The  random  number  seed  must  be  ">; 
wri tel n<" an  integer  between  8  and  ",maxint>  ; 
for  Counter  :=  1  to  5  do  wri tel n  j 
repeat 

wri te< 'Enter  new  random  number  seed  >  ">  ; 
until  ReadInt(Seed,0lmaxint)  ; 
writeln£'New  random  number  seed:  ' , Seed)  ; 
wri tel n  ; 

WaitforReturn  ; 

Choice  :=  "E"  ;  {return  to  Parameter  Menu) 
end  :  {procedure  SetSeed} 


procedure  SetAtr i tSupMenu<var  Choice  :  char)  ; 

<X 

Main  Program  Choice  "Q" 

X) 

{ 

Called  from  :  Parameter  Menu  1 

Returns  to  :  Parameter  Menu  1  or  Main  Menu 

Purpose  :  To  present  the  choices  for  changing  the  attrition 
probability  and  factor  and  suppression  probability. 

Description  :  The  user  is  given  5  choices  in  a  menu  presentation. 

) 

begin 

Wr i teTi t 1e< '  PARAMETER  MENU  3  ">  ; 

wri tel n< "A  :  SET  ATTRITION  FACTOR' >  } 
writeln  ; 

wri te1n( "B  :  SET  ATTRITION  PROBABILITY")  ; 
writeln  ; 

wri te1n( "C  :  SET  SUPPRESSION  PROBABILITY")  ; 
writeln  ; 

wri teln< "D  :  EXIT  TO  PARAMETER  MENU  1")  ; 
writeln  ; 

writeln<"E  :  EXIT  TO  MAIN  MENU")  ; 
writeln  ; 

GetChoice<"W","X","Y">"E" , "A", "H", Choice)  ; 

if  Choice  *  "H"  then  {dummy  choice  since  no  other  help  is  available) 
begin 

writeln("This  menu  allows  the  attrition  factor  and")  ; 
writeln<"attrition  and  suppression  probabilities')  ; 
writeln("factors  to  be  changed.")  ; 
writeln<"Continue  with  parameter  changing?")  ; 
if  Okay  then  Choice  :=  "Q"  {go  on  with  this  Parameter  Menu) 
else  Choice  :=  "E"  ;  (return  to  Parameter  Menu  1) 
end  ;  (if) 

end  :  (procedure  SetAtri tSupMenu) 


procedure  SetFactors<var  Choice  :  char)  ; 

<* 

Main  Program  Choice  "R" 

*) 

{ 

Called  from  :  Parameter  Menu  2 
Returns  to  :  Parameter  Menu  2 

Purpose  :  To  present  the  choices  -for  and  enabling  the  changing 
of  the  probabilites  of  engagement  and  hit  and  the 
factor  data  arrays. 

Description  :  The  user  is  given  5  choices  in  a  menu  presentation. 

Once  a  parameter  to  change  has  been  selected  the  factors  are  displayed 
and  the  user  is  solicited  for  the  row  and  column  of  the  factor  to  change, 
and  the  new  value.  The  factors  are  redisplayed  with  the  new  value  and 
the  user  is  asked  if  another  change  is  to  be  made,  and  then  if  another 
set  of  parameters  is  to  be  changed. 

} 

var  {Global  to  SetFactors  for  Obtain,  BaseChange  and  FactorChange) 

Row, Col  :  integer  ; 

Value  :  real  ; 

Done  :  boolean  ; 

procedure  Obtain(var  Row, Col  !  integer  ;  var  Value  s  real)  ; 
var  Maxrow,  Maxcol  :  integer  | 
begin 

Maxrow  Row  ;  Maxcol  :=  Col  ; 

writeln  ; 

repeat 

wri te< 'Enter  row  of  factor  to  change  >  ')  ; 
until  Readln t (Row, 1 , Maxrow)  ; 
repeat 

wri te< "Enter  column  of  factor  to  change  >  ")  ; 
until  ReadInt<Col , 1 , Maxcol )  ; 
write<"  Enter  new  value  >  ")  ; 

readln(Value)  ; 
writeln  ; 

end  }  {procedure  Obtain) 


procedure  BaseChangetTi tl e  :  STR35  ;  var  Basetype  :  BASEFACTS)  ; 
begin 
repeat 

ListBaseFacts<Ti tie, Basetype)  ; 

Row  s=  MAXADKINDS  ;  Col  :=  MAXACSORTS  ; 

Obtain (Row, Col , Value)  ; 

Base type! Row, Col ]  :=  Value  ; 

Li stBaseFactsdi tie, Basetype)  ; 
writeln  ; 

wri tel n< 'Change  another  value?')  ; 
until  not  Okay  ; 
end  ;  (procedure  BaseChange) 

procedure  FactorChangeCTitle  :  STR35  ;  var  Factor  s  FACTORS  5 

Nunatribs  :  integer  ;  Attribute  :  DESCRIPS)  ; 

begin 

repeat 

Li st Other Fac t s<Ti tl e, Fact or ,Numatribs, At  tribute)  ; 

Row  MAXADKINDS  ;  Col  :=  Numatribs  ; 

Obtain (Row, Col , Value)  ; 

Factor [Row, Col  I  s=  Value  ; 

Li stOtherFac ts<Ti tie, Factor .Numatribs .Attribute)  ; 
writeln  ; 

wri tel n< 'Change  another  -factor?')  ; 
until  not  Okay  ; 
end  ;  (procedure  FactorChange) 

>gin  (procedure  SetFactors) 

Done  :=»  -false  5 
repeat 

ShowLists  ; 

wri teln('Enter  letter  for  parameters  to  change')  ; 

GetXChoice< 'A' , 'B' , 'C' , 'D' , 'E' , 'X' .Choice)  ; 
case  Choice  of 

'A'  :  BaseChange  ('  Probability  of  Engagement  Base  ' .PEbase) 
'B'  :  BaseChange  ('  Probability  of  Hit  Base  ',PHbase) 
'C'  :  Fac torChange( '  Location  Factors  ', 

Placefact,  MAXADPLACE,  Adplaces)  ; 

'D'  :  FactorChange( '  Tactics  Factors  ', 

Tactifact,  MAXACTACTS,  Actactics)  ; 

'E'  :  FactorChange< '  Aspect  Factors  ', 

Aspecfact,  MAXACASPEC,  Acaspects)  5 

'X'  :  Done  :=  true  j 
end  ;  (case) 
until  Done  ; 

Choice  !=  '0'  (return  to  Parameter  Menu  25 
id  :  (procedure  SetFactors) 


procedure  BaseSaveDatatvar  Choice  :  char)  ; 


<X 

X) 

{ 

Called  from  : 
Returns  to  ; 
Purpose  : 

Description  : 
3 


Main  Program  Choice  'S' 


Parameter  Menu  2 
Parameter  Menu  2 

To  save  the  current  base  value  arrays 
PEbase  and  PHbase  in  the  file  Basave. 

This  procedure  is  highly  operating  system 
and  compiler  dependant. 


begin 

ClearScreen  ; 

wri teln( 'Saving  the  arrays  of  currently  entered')  ; 
wri tel n< 'engagement  and  hit  base  values  will  over-')  ; 
writelnt'write  the  information  currently  saved.')  ; 
wri tel n  ; 
writeln  ; 

wri tel n< 'Do  you  wish  to  continue?')  ; 
if  Okay  then 
begin 
(XX) 

{NO  implementation) 
writeln  ; 

wri tel n( 'This  procedure  to  be  implemented  by  user.') 

(XX) 

Mai tforReturn  j 
end  ; 

Choice  :=  '0'  }  {return  to  Parameter  Menu  23 
end  ;  {procedure  BaseSaveData) 


procedure  Base6etData(var  Choice  :  char)  ; 


Main  Program  Choice  'T' 


Called  from  :  Parameter  Menu  2 
Returns  to  :  Parameter  Menu  2 

Purpose  :  To  restore  the  current  base  value  arrays 
PEbase  and  PHbase  from  the  file  Basave. 

Description  :  This  procedure  is  highly  operating  system 
and  compiler  dependant. 


begin 

ClearScreen  ; 

wri teln< 'Restoring  the  arrays  of  currently  entered')  ; 
wri tel n< 'engagement  and  hit  base  values  will  over-')  ; 
write1n('write  the  information  currently  in  use.')  ; 
wri tel n  ; 
writeln  ; 

writeln<'Do  you  wish  to  continue?')  ; 
if  Okay  then 
begin 
(XX) 

<N0  implementation) 
writeln  j 

writeln ('This  procedure  to  be  implemented  by  user.') 

(XX) 

Mai tforReturn  ; 
end  ; 

Choice  :=  '0'  ;  {return  to  Parameter  Menu  2) 
end  ;  {procedure  BaseGetData) 


procedure  FactSaveData<var  Choice  :  char)  ; 


<X 

X) 

{ 

Called  from 
Returns  to 
Purpose 

Description 

3 


Main  Program  Choice  'U' 


:  Parameter  Menu  2 
:  Parameter  Menu  2 

s  To  save  the  current  factor  arrays  Placefact 
T actifact  and  As pec  fact  in  the  file  Fa save. 

:  This  procedure  is  highly  operating  system 
and  compiler  dependant. 


begin 

ClearScreen  ; 

wri tel n< 'Saving  the  arrays  of  currently  entered')  ; 
wri tel n< 'factors  will  overwrite  the')  ; 
writeln('information  currently  saved.')  ; 
wri tel n  ; 
writeln  ; 

writeln('Do  you  wish  to  continue?')  ; 
if  Okay  then 
begin 
<XX) 

{NO  implementation) 
writeln  ; 

wri teln< 'This  procedure  to  be  implemented  by  user.') 

(XX) 

NaitforReturn  ; 
end  j 

Choice  :»  '0'  ;  {return  to  Parameter  Menu  23 
end  :  {procedure  FactSaveData) 


procedure  FactGetDatatvar  Choice  :  char)  ; 


Main  Program  Choice  'V' 


Called  from  :  Parameter  Menu  2 


Returns  to  t  Parameter  Menu  2 


Purpose  :  To  restore  the  current  factor  arrays  Placefact 
Tactifact  and  Aspecfact  from  the  file  Fasave. 

Description  :  This  procedure  is  highly  operating  system 
and  compiler  dependant. 


begin 

ClearScreen  ; 

writelnf'Restoring  the  arrays  of  currently  entered')  j 

wri tel n< 'factors  wi 11  overwrite  the')  } 

wri teln( ' information  currently  in  use.')  ; 

writeln  ; 

writeln  ; 

wri tel n( 'Do  you  wish  to  continue?')  ; 
if  Okay  then 
begin 
(XX) 

{NO  implementation) 
writeln  ; 

wri tel n< 'This  procedure  to  be  implemented  by  user.')  ; 

(XX) 

NaitforReturn  ; 
end  ; 

Choice  s=  '0'  j  (return  to  Parameter  Menu  2) 
end  ;  (procedure  FactGetData) 


D-44 


procedure  GetAttritionFact<var  Choice  :  char) 


i 


(X 

Main  Program  Choice  'M' 

X) 

{ 

Called  from  :  Parameter  Menu  3 

Returns  to  :  Parameter  Menu  3 

Purpose  :  To  allow  changing  of  the  attrition  factor  seed 

Description  :  The  current  attrition  factor  is  displayed, 
the  user  is  told  the  acceptable  value  range 
and  is  solicited  for  a  new  value.  The  new 
value  is  displayed. 

) 


begin 

WriteTitlet'  SET  ATTRITION  FACTOR  ')  ; 

wri tel n< 'Current  attrition  factor:  ' ,Atri tf actor :3:2)  } 
wri teln< ' Ini tial  attrition  factor:  ' ,TRITFACT0R:3:2>  5 
writeln  ; 

write1n('The  attrition  factor  must  be  a')  ; 
writeln ('decimal  between  0.00  and  1.00')  ; 
write1n<'This  value  may  be  subtracted')  ; 
wri tel n< 'from  the  Air  Defense  Unit  level')  ; 
writeln('of  effectiveness  as  a  result  of')  5 
wri tel n< 'an  engagement  if  the  Aircraft')  ; 
writelnt'is  not  suppressed  or  destroyed.')  ; 
writeln  ; 
repeat 

write('Enter  new  attrition  factor  >  ')  ; 
readlnfAtri tfactor)  ; 

until  (Atritfactor  >=  0.0)  and  (Atritfactor  <=  1.0)  ; 
write!n<'New  attrition  factor:  ' ,Atritfactor :3:2>  } 
writeln  5 
Mai tforReturn  j 

Choice  :=  'Q'  |  (return  to  Parameter  Menu  3) 
end  :  (procedure  GetAttri tionFact) 


procedure  SetAttri tionProb<var  Choice  :  char)  ; 

<* 

Main  Program  Choice  ' X ' 

X) 

( 

Called  from  :  Parameter  Menu  3 

Returns  to  :  Parameter  Menu  3 

Purpose  :  To  allow  changing  of  the  probability  of  attrition 

Description  :  The  current  probability  of  attrition  is  displayed 
the  user  is  told  the  acceptable  value  range 
and  is  solicited  for  a  new  value.  The  new 
value  is  displayed. 


begin 

Wri teTi tle< '  SET  PROBABILITY  OF  ATTRITION  ')  5 
wri tel n<' Current  probability  of  attrition:  ' ,Atri tprob:3:2>  ; 
writeln('Initia1  probabi 1 i ty  of  attrition:  ' fATTRITPR0B:3:2)  ; 
wri tel n  ; 

wri teln< 'Probabi 1 ity  of  attrition  must  be')  ; 
wri tel n< 'a  decimal  between  0.00  and  1.00')  ; 
wr i tel n< 'This  value  is  used  to  determine')  5 
wri tel n(' if  the  Air  Defense  Unit  level  of')  5 
wri teln< 'effectiveness  will  be  degraded.'  >  ; 
wri tel n  ; 
repeat 

write('Enter  new  probability  of  attrition  >  ')  ; 
readl n(Atri tprob)  ; 

until  <Atri tprob  >=  0.0)  and  <Atri tprob  <=  1.0)  ; 
writelnf'New  probability  of  attrition:  ' ,Atri tprob:3:2)  ; 
writeln  ; 

Mai tforReturn  ; 

Choice  :*  'Q'  ;  (return  to  Parameter  Menu  3) 
end  ;  (procedure  SetAttri tionProb) 


procedure  SetSuppressionProbtvar  Choice  :  char)  ; 


Main  Program  Choice  'Y' 


Called  from  :  Parameter  Menu  3 


Returns  to  :  Parameter  Menu  3 


Purpose 


To  allow  changing  of  the  probability  of  suppression. 


Description  :  The  current  probability  of  suppression  is  displayed, 
the  user  is  told  the  acceptable  value  range 
and  is  solicited  for  a  new  value.  The  new 
value  is  displayed. 


begin 

WriteTit1e<'  SET  PROBABILITY  OF  SUPPRESSION  ')  ; 
wri tel n(' Current  probability  of  suppression:  ' ,Suprsprob:3:2>  ; 
wri teln< ' Ini tial  probabi 1 i ty  of  suppression:  '  ,SUPRESPR0B:3:2> 
wri tel n  ; 

wri teln( 'Probabi 1 ity  of  suppression  must  be')  ; 
writelnt'a  decimal  between  0.00  and  1.00')  ; 
writelnt'This  value  is  used  to  determine  if')  ; 
wri tel n<' the  Aircraft  will  be  suppressed  or')  ; 
writeln('destroyed  after  being  engaged.  ')  j 
wri tel n  ; 
repeat 

writeC'Enter  new  probability  of  suppression  >  ')  ; 
readl n(Suprsprob)  ; 

until  (Suprsprob  >=*  0.0)  and  (Suprsprob  <=  1.0)  ; 
writelnt'New  probability  of  suppression:  ' ,Suprsprob:3:2)  ; 
wri tel n  ; 

Mai tforReturn  ; 

Choice  :*  'Q'  ;  (return  to  Parameter  Menu  3) 
end  ;  (procedure  SetSuppressionProb) 


0-4? 


A  .VV.  .V 


procedure  Initial izetvar  Choice  :  char) 


<* 

Main  Program  Initialize 
X) 

{ 

Called  from  :  Main  Program 

Returns  to  :  Main  Menu 

Purpose  :  To  initialize  the  random  number  stream,  probabilities 
of  attrition  and  suppression,  and  all  data  arrays. 

Description  :  The  pertinant  factors  for  engagements  are  set  to  the 
appropriate  constants,  the  record  elements  for  the 
Air  Defense  Unit  array  Adunit  and  Aircraft  array  Aircraft 
are  set  to  0,  and  descriptive  and  factor  data  arrays  are 
initialized.  The  array  initializations  are  in  separate 
procedures  to  facilitate  compilation  and  changing  of  the 
various  factors. 

) 

var  Counter  :  integer  ; 


procedure  DAInitialize  ; 


begin 


(Initialize  Descriptive  Arrays) 


Adkinds 

[03 

:= 

'Un spec if ied' 

Adkinds 

!  13 

:> 

'Vulcan 

Adkinds 

[23 

;= 

'SGT  York 

Adkinds 

!  33 

•s 

' Redeye  ' 

Adkinds 

[43 

:= 

'Stinger  ' 

Adkinds 

(53 

•  SS 

'Chaparral  ' 

Adpl aces 

[03 

•a 

'Unspecified' 

Adplaces 

!  13 

:= 

'Europe  ' 

Adpl aces 

[23 

:= 

'Desert 

Adplaces 

!  33 

:= 

'Jungle  ' 

Ackinds 

[03 

;= 

'Unspecified' 

Ackinds 

!  13 

:= 

'Helicopter  ' 

Ackinds 

[23 

•  a 

'Transport  ' 

Ackinds 

!33 

J  s 

'Fighter  ' 

ActacticsI0] 

•  a 

'Unspecified' 

Ac  tactics! 1) 

;= 

'Pop-Up 

ActacticsI21 

:= 

'Lay-Down  ' 

Actactics!3) 

:= 

'Fly-Over 

AcaspectsI01 

:* 

'Unspecified' 

Acaspects! 13 

'Head-On 

AcaspectsI23 

:= 

'Crossing  ' 

Acaspects!  33 

8* 

'Tail 

end  i  (procedure  DAInitialize) 


D-48 


0. 


•  V  *.  *  m  *  •  • 


procedure  PEInitialize  5 

begin  (Initialize  Probability  of  Engagement  Array) 

PEbaseC 1,1)  :=  5/6  ; 

PEbase(2, 1)  :=  8.9  ; 

PEbaseC 3, 1)  ;=  0.5  j 
PEbaseC 4, 1)  :=  8.6  ; 

PEbaseC 5, 11  :=  0.5  ; 

PEbaseC 1,2)  :=  4/6  ; 

PEbaseC 2 ,21  i-  0.7  ; 

PEbaseC 3, 2)  :=  4/6  ; 

PEbaseC 4 ,2)  s*  8.7  ; 

PEbaseC 5, 23  :=  4/6  ; 

PEbaseC 1,3)  :=  8.5  ; 

PEbaseC 2, 3)  8=  8.6  ; 

PEbaseC 3, 3)  :=  0.5  ; 

PEbaseC 4, 3)  :=  8.6  ; 

PEbaseC 5, 3)  8.5  ; 

end  ;  (procedure  PEInitialize) 

procedure  PHInitialize  ; 

begin  (Initialize  Probability  of  Hit  Array) 

PHbaseC 1,1)  :=  8 . 5  ; 

PHbase(2, 1)  :=  8.6  ; 

PHbaseC 3, II  1/6  ; 

PHbaseC 4, 1)  0,2  ; 

PHbaseC 5,1)  s=  2/6  ; 

PHbaseC 1,2)  :*  8.5  ; 

PHbaseC 2, 2)  :=  8.6  ; 

PHbaseC 3, 2)  :=  2/6  ; 

PHbaseC 4, 2)  :=  8.4  ; 

PHbaseC 5, 2)  :*  2/6  ; 

PHbaseC 1,3)  :=  2/6  ; 

PHbaseC 2, 3)  :=  0.4  ; 

PHbaseC 3, 3)  :=  2/6  j 
PHbaseC 4 ,33  s ■  8.4  ; 

PHbaseC 5, 3)  :=  2/6  ; 
end  ;  (procedure  PHInitialize) 


procedure  LFInitialize  ; 

begin 

{Initialize  Location  Factor  Array) 

PlacetactE  1 , 11 

=  1.0  ; 

Placetactl2, 13 

=  1.8  ; 

PlacetactE3, 1] 

=  1.0  j 

PI acetact(4, 13 

=  1.0  ; 

Placet actE5, 1] 

=  1.0  ; 

Placet act 1 1,23 

■  1.1; 

PI  ace-fact [2, 23 

=  1.1  j 

Placet act 13, 23 

*1.1  ; 

Placetact[4,23 

*1.1  5 

PlacetactI5,23 

=  1.1  ; 

PlacetactE 1 ,33 

*  0.8  ; 

PI acefact!2,33 

-  0.8  ; 

PI acetactC3,33 

*  0.8  ; 

PI acetact(4,33 

=  0.8  ; 

Placet actES, 33 

*  0.8  : 

end  ;  {procedure  LFInitialize) 

procedure  TFInitial ize  ; 

begin 

{Initialize  Tactic  Factor  Array) 

TactitactE 1,13 

*  0.9  j 

Tactitact(2, 13 

*  0.9  ; 

TactitactE3, 13 

*  0.9  ; 

Tactitactt4, 13 

*  0.9  ; 

TactitactES, 13 

=  0.9  ; 

TactitactI 1,23 

*  1.0  J 

TactitactE2,23 

*  1.0  ; 

Tactitact(3,23 

*  1.0  ; 

Tact itactE4,23 

*  1.0  ; 

Tacti tact (5,23 

=  1.0  ; 

TactitactE 1,33 

*  1.1  : 

Tacti tact (2, 33 

=  1.1  ; 

TactitactE3,33 

*  1.1  } 

TactitactI4,33 

*  1.1  ; 

TactitactE5,33 

*  1.1  : 

end  ;  {procedure  TFIni tial ize) 

procedure  AFIni tial ize  ; 

begin  {Initialize  Aspect  Factor  Array) 

Aspec-factU  ,  1)  :=  0.9  ; 

Aspect act l 2, 13  :=  0.9  ; 

AspectactC 3, 11  :=  0.9  ; 

AspectactI4, 1)  :=  0.9  ; 

Aspect actC5,  11  :=  0.9  ; 

Aspectactl 1 ,2)  :=  1.1  ; 

AspectactC 2,2)  :=  1.1  ; 

Aspect act 13, 2)  :=  1.1  ; 

Aspect act [4, 2)  :=  1.1  ; 

Aspectactl5,23  :=  1.1  ; 

AspectactC 1 ,31  :=  0.9  ; 

Aspectact(2,3)  :*  0.9  ; 

Aspectact[3,3)  :=  0.9  ; 

Aspect act  14, 33  :=  0.9  ; 

AspectactC 5, 3)  0.9  ; 

end  ;  {procedure  AFIni tial ize) 

begin  {procedure  Initialize) 

Seed  :*  STREAMSEED  ; 

Atrittactor  :=  TRITFACTOR  i 
Atritprob  :«  ATTRITPROB  ; 

Suprsprob  SliPRESPROB  ; 

tor  Counter  :=  1  to  tWXADUNlTS  do 
with  Adunit [Counter)  do 
begin 

Isactive  :=  talse  ; 

Kind  :=  0  ; 

Location  :=  0  ; 

Ettectlevel  :=  0.0 
end  ;  {tor /with) 

tor  Counter  :=  I  to  MAXAIRCRAF  do 
with  AircrattCCounter]  do 
begin 

Isactive  :=  talse  ; 

Sort  :=  0  j 

Tactic  :=  0  ; 

Aspect  !—  0  ; 

end  ;  {tor/with) 

{Ini ti tial ize  descriptive,  probability  ot  en gagenen t/h i t  and  tactor  arrays) 

DAInitialize  ; 

PEInitialize  ; 

PHInitial ize  ; 

LFInitialize  ; 

TFInitialize  ; 

AFInitialize  ; 

Choice  :*  'A'  } 
end  :  {procedure  Initialize) 


{Seed  random  number  stream) 

{Set  attrition  tactors) 

{Set  attrition  probability) 

{Set  suppression  probability) 

{Initialize  Air  Detense  Unit  Data  Array) 


{Initialize  Aircratt  Data  Array) 


(Start  program  with  Main  Menu) 


procedure  HelpOne(var  Choice  :  char); 

<* 

Main  Program  Choice  '1' 

*) 

{ 

Called  from  :  Main  Menu 
Returns  to  :  Main  Menu 

Purpose  :  To  display  information  about  the  current  screen  choices 
Description  :  Text  help  infomation  is  displayed. 

> 

begin 

Cl  ear Screen  ; 

wri tel n('  Main  Menu  Help')  ; 

writeln  ; 

writeln('  The  Air  Defense  Mar  Game')  ; 
wri tel n( 'Support  Program  is  designed  to')  ; 
wr i tel n( 'provide  probabilities  of')  ; 

wri tel n< 'engagement  and  Kill  for  a')  ; 
wr i tel n< 'variety  of  forward  air  defense')  ; 
wri tel n< 'systems  against  different')  ; 
wri teln<' types  of  aircraft.  Each  air')  ; 
wri tel n< 'defense  system  is  described  by')  ; 
wri tel n(' type  (Vulcan,  SGT  York,')  ; 
wri tel n< 'Redeye,  Stinger,  or')  ; 

writeln('Chaparral) ,  location  (Europe,')  ; 
wri tel n( 'Desert  or  Jungle)  and')  ; 
wri teln( 'effectiveness  level  (8.8  to')  ; 
wri tel n( ' 1 .8)  . ')  ; 

Wai tforReturn  ; 

writeln('  Each  aircraft  is')  ; 

writeln('described  by  type  (Hel i copter , ')  ; 
wri tel n( 'Transport  or  Fighter),  tactic')  ; 
wri tel n(' (Pop-up,  Lay-Down  or  Fly-')  ; 
wri tel n( 'Over) ,  and  profile  or  aspect')  ; 
writeln('presented  to  the  air  defense')  ; 
wr i tel n(' system  (Head-on,  Crossing,  or')  ; 
writeln('Tail) .  As  currently')  5 

wri tel n< 'programmed,  20  numbered  Air')  ; 
write1n( 'Defense  Unit  and  20  numbered')  ; 
wri teln('Aircraf t  descriptions')  ; 

writeln('consisting  of  the  above')  ; 
wri tel n( 'at tributes  may  be  entered  and')  ; 
writeln('the  probabilities  of')  ; 

wri tel n< 'engagement  and  kill  calculated')  ; 
write1n('for  any  entered  air  defense')  5 
wri tel n(' system  against  any  entered')  ; 
write1n('aircraf t.')  ; 

Mai tforReturn  s 


itelnt'  The  results  of  an') 
telnt'interaction  between  an  Air') 
tel n< 'Defense  Unit  and  an  Aircraft') 
teW":-*.  determined  by  comparing  a') 
tel n< 'program  generated  random') 

telnt'number  with  calculated') 

tel n<' threshold  values.  Random') 
teln< 'numbers  are  generated  for  each') 
telnt'of  the  engagement,  Kill,') 

te1n< 'suppression  and  attrition') 
telnt'resul ts.  Threshold  values  are') 
te1n('ca1cu1ated  separately  for  the') 
tel n< 'probabi 1 i ties  of  engagement') 
telnt'and  Kill.  The  threshold') 

telnt'values  are  calculated  by') 

teln< 'mul tipi ying  a  base  value  by') 
telnt'the  series  of  factors') 
teln< 'ref lecting  the  descriptions  of') 
tel n<' the  Air  Defense  Unit  and  the') 
te1n( 'Aircraft . ')  5 
tforReturn  5 

teln<'  The  displayed') 

tel n< 'results  of  an  engagement') 

teln('include  if  the  aircraft  is') 
tel n< 'engaged,  if  the  aircraft  is') 
tel n< 'hit  and  destroyed  or  mission') 
tel n< 'suppressed,  and  if  the  air') 
teln( 'defense  system  suffers  any') 
telnt'attrition  from  an  aircraft') 
telnt'that  was  engaged  but  not') 
tel n< 'destroyed  or  suppressed.') 
telnt'Attrition  on  an  Air  Defense') 
tel n< 'Unit  is  reflected  by  a') 
tel  n(' lowering  of  the  Unit  "s' 

tel n< 'effectiveness  level  by  the') 
teln('amount  of  the  attrition') 
tel n< 'factor . ')  5 
tforReturn  j 

teln<'  Within  the  program  the') 
teln( 'factors  used  in  the') 
tel n< 'cal cul ation  of  the  engagement') 
telnt'and  kill  thresholds  may  be') 
tel n< 'changed.  Additionally,  the') 
telnt'probabil ities  of  air  defense') 
telnt'system  attrition  and  aircraft') 
tel n< 'suppression ,  the  attrition') 
telnt'factor  <that  value  subtracted') 
telnt'frcn  the  air  defense  system') 
telnt'effectiveness  level)  and  the') 
tel n< 'random  number  seed  may  be') 
telnt'changed.  Resetting  the  random') 
telnt'number  seed  to  a  previous') 
tel n< 'value  permits  an  engagement  to') 
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wri telnt 'be  conducted  again  with')  ; 
wri telnt 'unchanged  parameters  or  with')  ; 
wri telnt 'new  factors.  Each  of  the')  j 
writelnt 'factors  mentioned  above  may  be')  ; 
wri tel n< 'changed  from  one  of  the')  ; 
writelnt 'parameter  menus.')  } 

Mai tf orReturn  ; 

writelnt'  If  file  input  and  output')  ; 
writelnt 'operations  are  implemented,')  ; 
writelnt'the  data  arrays  for  the  Air')  ; 
writelnt 'Defense  Units  and  Aircraft,')  ; 
writelnt'and  the  arrays  for  threshold')  ; 
writelnt 'values  and  factors  may  be')  ; 
writelnt 'saved  to  or  restored  from')  ; 
wri telnt'f i les.  Use  of  external  files')  j 
writelnt 'for  storage  of  the  data  arrays')  ; 
writelnt 'permits  several  sets  of  data')  j 
writelnt 'to  be  entered  and  changed')  j 
writelnt 'during  a  program  run  without')  j 
writelnt'having  to  enter  the  individual')  ; 
wri tel nt 'values  each  time  a  new  data')  ; 
writelnt'set  is  desired.')  ; 

Mai tf orReturn  ; 
writelnt 'Starting  Up')  ; 
writeln  j 

writelnt'  Mhen  the  program  is')  ; 
writelnt 'started  no  air  defense  systems')  j 
writelnt 'or  aircraft  are  available  for')  { 
writelnt 'engagements  but  a  set  of')  ; 
wri telnt 'defaul t  values  for  the')  ; 
wri telnt'calculation  of  engagement')  ; 
wri  telnt  'resul  ts  is  loaded.  From  the')  ; 
wri telnt 'Main  Menu  either  option  A  or  B')  ; 
wri telnt 'should  be  selected  to  proceed')  ; 
writelnt'with  the  descriptions  of  air')  ; 
wri telnt 'defense  systems  and  aircraft.')  ; 
wri telnt 'Selection  of  option  D  allows')  ; 
writelnt'the  default  factors  to  be')  | 
wri telnt 'displayed  or  changed.')  ; 

Mai tf orReturn  5 

wri telnt 'Conducting  Engagements')  ; 
writeln  j 

writelnt'  From  the  Main  Menu,')  } 
wri telnt'option  C,  Conduct  Engagements,')  ; 
writelnt'is  selected  after  both  Air')  ; 
wri telnt 'Defense  Units  and  Aircraft  are')  ; 
wri telnt 'entered.  The  user  is  prompted')  ; 
wri telnt 'for  the  Air  Defense  Unit  and')  j 
writelnt'the  Aircraft  numbers  for  the')  •, 
wri telnt 'engagement.  Only  numbers  for')  ; 
wri telnt 'Uni ts  and  Aircraft  that  have')  ; 
wri telnt 'been  described  or  9  to  exit')  ; 
writelnt'are  accepted.  If  an  invalid')  ; 


wri tel n( 'number  is  entered,  a  list  of')  ; 
wr i tel n< 'valid  numbers  is  displayed  and')  ; 
writelnt'the  prompt  redisplayed.')  ; 

Mai  t-forReturn  ; 

writeln('  When')  ; 

wri tel n< 'valid  numbers  for  the  Air')  j 
wri tel n< 'Defense  Unit  and  the  Aircraft')  ; 
wri tel n< 'are  entered,  characteristics')  | 
writelnt'of  both  systems  are  listed  and')  ; 
wri tel n<' the  results  of  the  engagement')  ; 
writelnt'are  displayed.  The  first')  ; 
wri tel n< 'result  is  whether  the  Aircraft')  ; 
writeln ('was  engaged  by  the  Air  Defense')  ; 
wri tel n< 'Unit.  If  the  Aircraft  was  not')  j 
wri tel n< 'engaged,  the  engagement')  ; 
wri tel n< 'process  is  finished  and  the')  ; 
wri tel n< 'user  is  asked  if  another')  ; 
wri tel n< 'engagement  is  to  be  conducted.')  ; 
Mai tf or Ret urn  j 

writelnt'If  the  Aircraft  was  engaged,')  j 
wri tel n< 'whether  or  not  the  Aircraft')  ; 
wri tel n< 'was  hit  is  displayed,  and,  if')  ; 
writelnt'the  Aircraft  was  hit,  whether')  ; 
wri tel n< 'it  was  destroyed  or  its')  ; 
wri teln< 'mission  aborted  is  determined.')  ; 
wri tel n<' If  the  Aircraft  was  engaged')  j 
writelnt'but  not  hit,  whether  or  not')  ; 
wri tel n<' the  Air  Defense  Unit  was')  j 
wr i tel n(' suppressed  is  displayed,  and')  ; 
writeln('if  the  Unit  was  suppressed,')  5 
wri tel n(' the  effectiveness  is  decreased')  | 
writelnt'by  the  amount  of  the  attrition')  | 
wri teln('factor .')  ; 

Mai tf orReturn  ; 

wri tel n('  Mhen  the  engagement')  ; 
wri tel n< 'process  is  concluded  and  the')  ; 
writeln('resul ts  displayed,  the  user  is')  ; 
wri tel n< 'given  the  option  of  conducting')  ; 
wri teln( 'another  engagement.  If  no')  ; 
wri tel n< 'other  engagement  is  to  be')  ; 
writelnf'conducted,  the  user  is')  ; 
wri tel n< 'returned  to  the  Main  Menu.')  ; 
writeln  ; 

wri tel n< 'Ending  The  Program')  ; 
writeln  ; 

writelnt'  The  program  is  ended  from')  ; 
writelnt'the  Main  Menu  by  selecting')  ; 
wri teln( 'option  E,  Exit  Program.')  ; 

Mai tf orReturn  ; 

Choice  s*  'A' 
end  ;  {procedure  HelpOne) 


procedure  He1pTwo(var  Choice  :  char)  5 


(X 

Main  Program  Choice  ' 2 ' 

X) 

{ 

Called  from  i  Air  Defense  Menu 
Returns  to  s  Air  Defense  Menu 

Purpose  :  To  display  information  about  the  current  screen  choices. 
Description  s  Text  help  intonation  is  displayed. 

> 

begin 

ClearScreen  ; 

wri tel n('  Air  Defense  Menu  Help')  ; 
writeln  j 

writeln('Entering  Air  Defense  Systems')  5 
writeln  ; 

write1n('  Option  A  from  the  Main')  | 
writeln ('Menu  brings  up  the  Air  Defense')  ; 
writeln ('Menu.  From  this  menu,  options')  ; 
writeln('A  or  D  are  selected  to  enter')  ; 
writeln('Air  Defense  Unit  descriptions.')  ; 
wri tel n( 'Option  D  may  only  be  used  if')  { 
write1n('the  file  input/output')  j 
wri tel n( 'procedures  are  implemented  and')  } 
writeln('the  program  has  been  run')  f 
wr i tel n(' previously  and  the  Air  Defense')  ; 
wri teln( 'Unit  descriptions  saved.  When')  ; 
wri tel n( 'option  A,  Enter  Description  of')  ; 
writeln('Air  Defense  Units,  is')  ; 
wri tel n( 'selected,  the  user  is  told')  j 
writetn('what  the  next  available')  ; 
wri tel n(' (undescribed)  Unit  number  is')  5 
writeln('and  asked  to  enter  the  number')  ; 
writeln('of  the  Unit  to  describe.')  j 
Mai tforReturn  { 

writeln  ('There  is  no  r  equir  eaten  t  to')  j 
writeln('enter  Air  Defense  Units  in  any')  ; 
wri tel n( 'order ,  but  entering  the  number')  ; 
writeln('of  a  Unit  that  was  previously')  ; 
wri tel n(' described  will  result  in  the')  5 
writeln('new  information  overwriting')  ; 

writeln('the  previous  description.')  ; 

wri teln( 'There  is  also  no  requirement')  ; 
writeln('to  enter  any  set  amount  of  Air')  5 
wri tel n( 'Defense  Units  -  a  single  Unit')  ; 
wri tel n( 'may  be  entered  and  an')  ; 

wri tel n( 'engagement  conducted  with  an')  ; 
wri tel n( 'entered  Aircraft.  A  list  of')  j 
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wri tel n<' the  currently  entered  Air')  5 
wri tel n(' Defense  Units  is  seen  by')  ; 
wri tel n< 'selecting  option  B  of  the  Air')  ; 
Mr i tel n<' Detense  Menu,  List  Currently')  ; 
mt i tel n<' Entered  Air  Defense  Units.')  ; 
writeln('Entering  an  Air  Defense  Unit')  ; 
mt i tel n<' number  of  0  returns  the  user')  j 
Mriteln<'to  the  Air  Defense  Menu.')  j 
Mai tforReturn  5 

Mriteln<'  Options  on  the  Air')  ; 
Mri tel n< 'Defense  Menu  include  C,  Save')  5 
writelnt'Data  and  D,  Restore  Data.  If')  ; 
Mrite1n<'the  program  has  been  run')  | 
mri teln< 'previously  and  option  C,  Save')  ; 
Mri tel n< 'Data,  Mas  used,  descriptions')  ; 
Mrite1n('of  Air  Defense  Units  may  be')  ; 
writelnt'entered  from  the  external  file')  ; 
write1n('ADSAVE.  Tmo  items  of  caution:')  ) 
Mriteln<'if  the  f i le  ADSAME  does  not')  ; 
Mriteln('exist,  the  program  aborts  to')  ; 
Mri tel n(' the  operating  system,  and  if')  j 
Mri teln( 'data  is  restored  from  the')  } 
writelnt'f ile  ADSAUE,  any  descriptions')  5 
Mri tel n< 'of  Air  Defense  Units  currently')  ; 
wri tel n<" in  use  are  overMritten.  In')  ; 
Mri teln(' like  manner,  data  saved')  ; 
Mri tel n< 'overwrites  the  data  currently')  5 
mritelnt'in  the  file  ADSMSE.  The  user')  ; 
Mri tel n< 'may  make  a  decision  not  to') 
writelnt'continue  with  saving  or') 
wri tel n< 'restoring  the  Air  Defense  Unit') 
wri teln< 'data  at  which  time  the  program') 
wri tel n< 'returns  to  the  Air  Defense') 
writeln<'Menu.')  5 
MaitforReturn  ; 

writeln('  The  process  of  describing')  ; 
wri tel n< 'an  Air  Defense  Unit  is  a')  ; 
writeln('matter  of  selecting  the')  ; 
wri tel n< 'appropriate  items  from  the')  ; 

wri t el n< 'subsequent  menus.  The  initial')  ; 
wri telnf'choice  is  for  the  type  of')  ; 
wri teln( 'system,  the  second  choice  is')  { 
writeln<'for  the  location  of  the')  j 

wri teln< 'system.  The  third  choice,')  ; 
wri tel n( 'effectiveness  level,  may  be')  5 
wr i tel n<' thought  of  as  a  decimal')  ; 
wr i tel n<' percent  of  effectiveness,  so')  ; 
writelnt'if  the  Unit  is  considered  1005*')  ; 
wri tel n< 'effective,  1  or  1.0  is  entered')  ; 
writeln<'for  the  effectiveness  level.')  ; 
writelnt'In  like  manner,  a  73 K')  ; 

writeln('effective  Unit  is  described')  ; 
wri tel n< 'wi th  an  effectiveness  level  of')  : 


writeln<"0.75.  Caution  should  be") 
wri telnt "exercised  to  enter  only7) 
wri tel n( "numbers  for  the  effectiveness7) 

Mr i tel n( 7 level ,  as  a  non-numeric  entry7)  ; 
mt i tel n< "causes  the  program  to  abort  to7)  ; 
Mrite1n(7the  operating  system.7)  j 
Mai tf orReturn  ; 

mritelnt7  When  a  description  is7)  ; 
wri tel n< 7 completed,  a  Unit  number  of  I7) 
writeln(7is  entered  to  return  to  the7) 
wri tel n< "Air  Defense  Menu.  Option  B,7) 
write1n(7List  Currently  Entered  Air7) 
wri tel n( "Defense  Units,  may  be  made  to") 
wr i tel n< 'verify  that  the  correct") 
wr i tel n< 7 informat ion  has  been  entered.7) 
wri tel n< 7  Incorrect  information  is") 
wri tel n< "corrected  by  selecting  option") 
write1n("A  at  the  Air  Defense  Menu,7)  | 
writeln<"entering  the  Unit  number  for") 
wri tel n< "which  the  information  was") 
wri tel n< 7 incorrect,  and  reselecting  the") 
wri tel n( 'menu  items  to  complete  the") 
wri tel n< "description  of  the  Unit.7)  ; 

Waitf orReturn  ; 

Choice  s=  "B" 
end  ;  (procedure  HelpTwo) 
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procedure  He1pThree(var  Choice  :  char); 


Main  Program  Choice  '3' 


Called  from  :  Aircraft  Menu 


Returns  to  :  Aircraft  Menu 


Purpose  :  To  display  information  about  the  current  screen  choices. 
Description  :  Text  help  infomation  is  displayed. 


begin 

ClearScreen  ; 

wri tel n('  Aircraft  Menu  Help/)  ; 
writeln  ; 

wri tel n( 'Entering  Aircraft')  ; 
writeln  5 

writeln('  Option  B  from  the  Main') 
wri tel n( 'Menu  brings  up  the  Aircraft') 
writeln ('Menu.  From  this  menu,  options') 
wri tel n< 'A  or  D  are  selected  to  enter') 
writeln('Aircraft  descriptions.  Option') 
writeln('D  may  only  be  used  if  the  file') 
writeln('input/output  procedures  are') 
wri  tel n(' implemented  and  the  program') 
wri tel n< 'has  been  run  previously  and') 
writelnt'the  Aircraft  descriptions') 
wri tel n(' saved.  When  option  A,  Enter') 
wri tel n< 'Description  of  Aircraft,  is') 
write1n('se1ected,  the  user  is  told') 
writetnt'what  the  next  available') 
wri tel n(' (undescribed)  Aircraft  number') 


writeln('is  and  asked  to  enter  the') 
wri tel n( 'number  of  the  Aircraft  to') 
wri tel n( 'describe.')  ; 

NaitforReturn  5 

wri tel n('  There  is  no') 

wr i tel n( 'requirement  to  enter  Aircraft') 
writeln('in  any  order,  but  entering  the') 
wri tel n( 'number  of  an  Aircraft  that  was') 
wri tel n( 'previously  described  results') 


to  enter 
Aircraft 


the') 

to') 


write1n('in  the 
wri tel n( 'overwriting 
wr i tel n( 'descript  ion. 
wri tel n< 'requirement 


tew  information') 
the  previous') 
There  is  also  no') 
to  enter  any  set') 


writeln('amount  of  Aircraft  -  a  single') 
writeln('Aircraft  may  be  entered  and  an') 
wri tel n(' engagement  conducted  with  an') 
wri tel n( 'entered  Air  Defense  Unit.  A') 


writelni'l ist  of  th*  currently  entered')  ; 
writeln<'Aircraf t  is  seen  by  selecting')  ; 
wri tel n< 'option  B  of  the  Aircraft,  List')  ; 
wri teln< 'Currently  Entered  Aircraft.')  ; 
wri tel n< 'Entering  an  Aircraft  number  of')  ; 
write1n('0  returns  the  user  to  the')  ; 
wri te1n< 'Aircraft  Menu.')  ; 

MaitforReturn  ; 

writelni'  Options  on  the  Aircraft') 
writelni'Menu  include  C,  Save  Data  and') 
writelnt'D,  Restore  Data.  If  the') 
wr i tel n(' program  has  been  run') 
wri tel n< 'previously  and  option  C,  Save') 
writelnt'Data,  was  used,  descriptions') 
writelni'of  Aircraft  may  be  entered') 
writelni'from  the  external  file  ACSAME.') 
wri tel n< 'Two  items  of  caution:  if  the') 
write!n('f ile  ACSAME  does  not  exist,') 
wri tel n(' the  program  aborts  to  the') 
wri teln< 'operating  system,  and  if  data') 
wri tel n<' is  restored  from  the  file') 
wri teln< 'ACSAME,  any  descriptions  of') 
write1n('Aircraf t  currently  in  use  are') 
wr i tel n< 'overwrit ten.  In  like  manner,') 
wri tel n< 'data  saved  overwrites  the  data') 
writelnt'currently  in  the  file  ACSAME.') 
writeln<'The  user  may  make  a  decision') 
writelnt'not  to  continue  with  saving  or') 
wri tel n< 'restoring  the  Aircraft  data  at') 
writelnC 'which  time  the  program  returns')  ; 
wri tel n<' to  the  Aircraft  Menu.')  ; 


Mai  tf orReturn  j 

writelnf'  The  process  of  describing') 
writelnf 'an  Aircraft  is  a  natter  of') 
writelnf'selecting  the  appropriate') 
writelnf 'i  tains  from  the  subsequent') 

writelnf 'menus.  The  initial  choice  is') 
writelnf 'for  the  type  of  aircraft,  the') 

Mr i tel n(' second  choice  is  for  the') 
writelnf 'tactic  used  and  the  third') 

Mrite1n( 'choice  is  for  the  aspect  the')  ; 
writelnf'Aircraf t  is  presenting  to  the')  ; 
writelnf'Air  Defense  Unit.  When  a')  ; 
writelnf 'description  is  completed,  an') 
writelnf 'Aircraft  number  of  8  is') 

wri tel n( 'entered  to  return  to  the  Air') 
writelnf 'Defense  Menu.  Option  B,  List') 
writelnf 'Currently  Entered  Aircraft,') 
writeln('may  be  made  to  verify  that  the') 
writelnf 'correct  information  has  been') 
writelnf 'entered.')  ; 

Mai tf orReturn  ; 

writelnf'  Incorrect') 

writelnf 'information  is  corrected  by') 
writelnf'selecting  option  A  on  the') 
writelnf 'Aircraft  Menu,  entering  the') 
writelnf 'Aircraft  number  for  which  the') 
writelnf 'information  was  incorrect,  and') 
writelnf 'reselecting  the  menu  items  to') 
wri tel nf' complete  the  description  of') 
writelnf'the  Aircraft.')  5 
Mai tf orReturn  ; 

Choice  :*  'C' 

end  ;  {procedure  HelpThree) 


procedure  HelpFour(var  Choice  :  char); 

(X 

Main  Program  Choice  '4' 

X) 

{ 

Called  from  :  Parameter  Menu 
Returns  to  :  Parameter  Menu 

Purpose  :  To  display  information  about  the  current  screen  choices 
Description  :  Text  help  infomation  is  displayed. 

) 

begin 

ClearScreen  ; 

wri tel n('  Parameter  Menu  Help")  ; 
writeln  ; 

wri tel n(' Changing  Parameters')  ; 
writeln  ; 

write1n('  Option  D  from  the  Main')  ; 

wri tel n< 'Menu  brings  up  the  Parameter')  ; 
writeln ('Menu.  Parameters  refer  to')  ; 
write1n('the  base  values  for  the')  ; 
writeln('probabil ities  of  engagement')  ; 
writeln ('and  hit,  and  the  factor  values')  ; 
writeln( 'f or  each  of  the  Air  Defense')  ; 
wri tel n( 'Unit  and  Aircraft  descriptors')  ; 
write1n('(with  the  exception  of  the  Air')  ; 
wri tel n(' Defense  Unit  effectiveness')  ; 
wri teln(' level) .  Other  values  that  may')  ; 
writeln('be  changed  include  the')  ; 
wri tel n('probabil ities  of  Air  Defense')  ; 
writeln('Unit  attrition  and  Aircraft')  ; 
wr i tel n(' suppression,  the  attrition')  ; 
wri tel n( 'factor  and  the  seed  for  the')  ; 
wri tel n( 'random  number  generator.')  ; 

Mai tforReturn  ; 

writeln('  Option  A  from  Parameter')  ; 

wri tel n( 'Menu  1  brings  up  the  Parameter')  ; 
writeln('Lists  from  which  a  set  of')  ; 
wri tel n(' threshold  values  or')  ; 

wri teln( 'description  factors  may  be')  ; 
wri tel n< 'selected  to  be  listed.  Once  a')  ; 
write1n('set  of  values  is  displayed,')  ; 
writeln('the  user  is  asked  if  another')  ; 
writeln ('set  is  to  be  displayed.  If  the')  ; 
wri tel n( 'Parameter  Lists  are  showing')  ; 
write1n('and  the  user  does  not  choose')  ; 
writeln('to  continue,  option  X  to  Exit')  ; 
writeln( 'returns  the  user  to  the')  ; 
wri tel n( 'previous  menu.')  ; 


Mai tf orReturn  ; 

writelnf'  Sal  action  of  option  B') 
wri tel n<'< Set/Save  Parameters)  from") 

writelnt' Parameter  Menu  1  brings  up") 
wri tel n< ''Parameter  Menu  2.  Option  A,') 
wri tel n< 'Change  Parameters,  displays') 
wri tel n<' the  Parameter  Lists.') 

write1n('Selection  o-f  a  parameter  list') 
wri tel n<' allows  values  used  by  the') 

wr i tel n<' program  to  be  changed  by') 

wr i tel n<' specifying  the  row  and  column') 
writelnt'of  value  to  change,  and  the') 

writeln('new  value.  The  new  value  is') 

wr i tel n< 'displayed  and  the  user  given') 
writelnt'the  option  o-f  changing  another') 
wri teln< 'value.  Options  at  Parameter') 

writelnt'Menu  2  also  include  B,  Save') 

write1n('Base  Values;  C,  Restore  Base')  ; 
wri tel n( 'Values;  D,  Save  Factors  and  E,'>  ; 
wri tel n< 'Restore  Factors.')  ; 

Mai  t-f orReturn  ; 

writeln('  If  the') 

wri tel n< 'program  has  been  run') 

write1n< 'previously  and  the  save') 
wr i tel n<' opt  ions  were  used,  base  values') 
writelnt'may  be  restored  from  the  file') 
writeln<'BASAVE  and  factor  values  may') 
wri tel n< 'be  restored  from  the  file') 
wri telnt'FASAWE.  Two  items  of  caution:') 
writelnt'if  the  files  do  not  exist,  the') 
wri tel n< 'program  aborts  to  the') 
wri te1n( 'operating  system;  and  if  data') 
writelnt'is  restored  from  the  files,') 
writeln('any  data  currently  in  use  is') 
wri tel n< 'overwritten.  In  1  ike  manner , ') 
wri teln( 'data  saved  overwrites  the  data') 
writelnt'currently  in  the  files.  The') 
wri teln< 'user  may  make  a  decision  not') 
writelnt'to  continue  with  saving  or') 
writelnt'restoring  the  data  at  which') 
writelnt'time  the  program  returns  to') 
wr i tel n(' Parameter  Menu  2.')  ; 

Mai tf orReturn  ; 

writelnt'  If') 

wri tel n< 'Parameter  Menu  2  is  showing') 
writelnC'and  the  user  does  not  choose') 
writelnt'to  continue,  option  X  to  Exit') 
writeln('returns  the  user  to  the') 
wri tel n< 'previous  menu.')  ; 
writeln  ; 

writelnt'  Selection  of  option  C,') 
writelnt'Set  Random  Number  Seed  or  D,'> 
writeln('Set  Attrition/Suppression')  ; 


writeln('Factors  ■from  Parameter  Menu  1') 
wri  tel  n< 'permits  those  values  to  be') 
wri tel n< 'changed.  Option  D  brings  up') 
wri tel n< 'Parameter  Menu  3.')  ; 

Mai tf or Return  ; 

wciteln<'  For  each  option  on') 
wri teln< 'Parameter  Menu  3  and  option  C,') 
writeln<'Set  Random  Number  Seed,  from') 
wri tel n< 'Parameter  Menu  1,  the  current') 
write1n<'and  original  factors  and') 
writeln('permissible  range  for  a  new') 
wri tel n< 'value  are  displayed.')  ; 
MaitforReturn  ; 

Choice  :=  'E' 
d  ;  (procedure  HelpFour) 

•gin  (  MAIN  PROGRAM  ) 

ShowProgramName  ; 

MaitforReturn  ; 

Ini tial ize(Choice)  : 


(Choice) 


case  Choice  o i 
'A'  :  kri  teMainMenu 

{  Main  Menu  Choices  > 

'B'  :  kri teDefenseMenu  (Choice) 
'C'  :  NriteAircra-ftMenu  (Choice) 
'0'  :  ConductEngagements(Choice) 

' E *  :  ChangeParameters  (Choice) 

(Air  Defense  Menu  Choices  } 

,F/  :  EnterADunits  (Choice) 

'G'  :  ListADunits  (Choice) 

'H'  :  AdSaveData  (Choice) 

'1'  :  AdGetData  (Choice) 

{  Aircraft  Menu  Choices  ) 

'J'  :  EnterAircra-f t  (Choice) 
'K'  :  ListAircra-f t  (Choice) 

'L'  :  AcSaveData  (Choice) 

'M'  :  AcGetData  (Choice) 

{  Parameter  Menu  1  Choices  > 

'Ny  :  ListFactors  (Choice) 

'0'  s  kriteParaMenu2  (Choice) 
i  SetSeed  (Choice) 

'Q'  :  SetAtr i tSupMenu  (Choice) 

(  Par« Menu  2  Choices  ? 

'R'  :  SetFactors  (Choice) 

'S7  :  BaseSaveOata  (Choice) 

'T'  :  BaseGetData  (Choice) 

'U'  :  FactSaveData  (Choice) 

7V7  :  FactGetData  (Choice) 

(  Parameter  Menu  3  Choices  ) 

'W'  ;  GetAttri tionFact  (Choice) 
'X'  s  SetAttr i tionProb  (Choice) 
'Y'  :  SetSuppressionProb(Choice) 

{  Help  Choices  > 

'l'  :  HelpOne  (Choice) 

'2'  :  HelpTwo  (Choice) 

'3'  :  HelpThree  (Choice) 

'4'  :  HelpFour  (Choice) 

end  (case) 
til  Choice  -  ' ; 


Apple  Pascal  Procedures 


'H'  :  AdSaveData  . 
'I'  i  AdGetData  .. 
'L'  :  AcSaveData  . 
*W  s  Ac Get Data  .. 
"S"  :  BaseSaveData 
*T*  :  BaseGetData 
'U'  s  FactSaveData 
'V'  :  FactGetData 

TURBO  Pascal  Procedures 

'H'  :  AdSaveData  . 
'I'  :  AdGetData  .. 
'L'  i  AcSaveData  . 
'M'  :  AcGetData  . . 
'S'  :  BaseSaveData 
'T*  :  BaseGetData 
'U'  s  FactSaveData 
'V'  s  FactGetData 

UNIX  Pascal  Procedures 

'H'  t  AdSaveData  . 
'I'  s  AdGetData  .. 
'L'  s  AcSaveData  . 
'M'  s  AcGetData  . . 
"S'  :  BaseSaveData 
'T'  :  BaseGetData 
'\i'  :  FactSaveData 
'V'  :  FactGetData 


Spare  Parts 

Procedures  are  provided  in  this  appendix  to  enable  -file 
input  and  output  -for  the  Air  Defense  Mar  Game  Support 
Program  under  different  compilers.  The  compilers  supported 
are  the  TURBO,  Apple  and  UNIX  Pascal  compilers.  The 
specific  procedures  to  be  changed  are  listed  below  as  they 
are  found  in  the  main  program.  The  file  handling  procedures 
enable  the  saving  and  restoring  of  the  arrays  of  ADRECORD, 
ACRECORD  and  the  arrays  of  the  base  and  factor  values. 
Replacement  of  the  procedures  must  be  accompanied  by 
addition  of  the  respective  file  names  to  the  initial  program 
statement  and  to  the  variable  section.  Files  are  of  type 
text . 

<  Air  Defense  Menu  Choices  > 

'H'  :  AdSaveData  (Choice)  ; 

'  I '  :  AdGetData  (Choice)  ; 

(  Aircraft  Menu  Choices  ) 

'L'  :  AcSaveData  (Choice)  ; 

'M'  :  AcGetData  (Choice)  ; 

(  Parameter  Menu  2  Choices  ) 


'S'  s  BaseSaveData  (Choice)  ; 
'T'  :  BaseGetData  (Choice)  ; 
'U'  :  FactSaveData  (Choice)  $ 
'V'  :  FactGetData  (Choice)  : 


•j* 


procedure  AdSaveData(var  Choice  t  char)  j 
<X 

Main  Program  Choice  'H' 

X) 

( 

Called  from  :  Air  Defense  Menu 
Returns  to  t  Air  Defense  Menu 

Purpose  :  To  save  the  current  Air  Defense  Unit  array  Adunit 
in  the  file  Adsave. 

Description  :  This  procedure  is  for  the  Apple  Pascal  compiler. 

> 

var 

Counter  :  integer  ; 
begin 

ClearScreen  ; 

wri tel n< 'Saving  the  array  of  currently  entered')  } 
writeln<'Air  Defense  Units  will  overwrite  the')  ; 
wri tel n< 'information  currently  saved.')  ; 
wri tel n  ; 
wri tel n  ; 

wri tel n< 'Do  you  wish  to  continue?')  ; 
if  Okay  then 

begin  (Apple  implementation) 

rewri t e< Adsave , 'ADSAVE')  ; 
for  Counter  :»  1  to  NAXADUN1TS  do 
with  Adunit (Counter!  do 
begin 

wr i tel n(Adsave, I  sac t i ve, Ki nd:2, Locati on i2, Effect  level :4:2) 
end  ; 

close (Adsave, lock)  ; 
wri tel n  ; 

wri tel n< 'Air  Defense  Unit  data  has  been  saved.')  ; 

Mai tf or Return  5 
end  ; 

Choice  :*  'B'  ;  (return  to  the  Air  Defense  Unit  menu) 
end  ;  (procedure  AdSaveData) 


fi 


.'A 
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procedure  AdGetData(var  Choice  :  char)  ; 

<X 

Main  Program  Choice  ' I ' 

X) 

( 

Called  'from  :  Air  Defense  Menu 
Returns  to  :  Air  Defense  Menu 

Purpose  :  To  restore  the  current  Air  Defense  Unit  array  Adunit 
from  the  file  Adsave. 

Description  i  This  procedure  is  for  the  Apple  Pascal  compiler. 

) 

var 

Counter  :  integer  ; 
begin 

ClearScreen  ; 

wri tel n( 'Restoring  Air  Defense  Unit  Data')  ; 
wri tel n< 'will  overwrite  the  information')  ; 
writelnt'currently  in  use.')  5 
writeln  ; 
writeln  ; 

wri tel n( 'Do  you  wish  to  continue?')  ; 
if  Okay  then 

begin  (Apple  implementation) 

reset(Adsave,  'ADSAWE')  ; 
for  Counter  i»  1  to  NAXADUNITS  do 
with  Adunit (Counter!  do 
begin 

r eadl n( Adsave, I  sac tive, Kind, Location, Effect  level)  ; 
end  ; 

close (Adsave, lock)  ; 
writeln  ; 

writeln('Air  Defense  Unit  data  has  been  restored.')  ; 

Mai tforReturn  ; 
end  ; 

Choice  i*  'B'  |  (return  to  Air  Defense  Unit  menu) 
end  ;  (procedure  AdGetData) 


procedure  AcSaveData(var  Choice  :  char)  ; 


Main  Program  Choice  'L' 


Called  'from  :  Aircraft  Menu 


Returns  to  :  Aircraft  Menu 


Purpose  :  To  save  the  current  Aircraft  array  Aircraft 
in  the  file  Acsave. 

Description  :  This  procedure  is  for  the  Apple  Pascal  compiler 


Counter  :  integer  ; 
begin 

ClearScreen  ; 

wri tel n( ' Saving  the  array  of  currently  entered')  ; 
wri tel n< 'Aircraft  will  overwrite  the  information')  ; 
writelnt'currently  saved.')  ; 
writeln  ; 
wri tel n  ; 

wri tel n< 'Do  you  wish  to  continue?')  ; 
if  Okay  then 

begin  (Apple  implementation) 

rewri te< Acsave, 'ACSAVE')  ; 
for  Counter  :=  1  to  MAXAIRCRAF  do 
with  Aircraft (Counter)  do 
begin 

wri teln(Acsave,Isactive, Sort :2, Tactic :2, Aspect :2)  ; 
end  ; 

close  (Acsave, lock)  ; 
writeln  ; 

writeln ('Air craft  data  has  been  saved.')  j 
Waitf or Return  ; 
end  j 

Choice  :=  'C'  5  (return  to  the  Aircraft  menu) 
end  ;  (procedure  AcSaveData) 
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procedure  AcGetData(var  Choice  :  char)  ; 


<X 

Main  Program  Choice  7M7 
X) 

( 

Called  'front  :  Aircraft  Menu 
Returns  to  :  Aircraft  Menu 

Purpose  :  To  restore  the  current  Aircraft  array  Aircraft 
from  the  file  Acsave. 

Description  :  This  procedure  is  for  the  Apple  Pascal  compiler 


> 

var 

Counter  :  integer  j 
begin 

Cl  ear Screen  ; 

wri tel n( 7 Restoring  the  Aircraft  data7)  ; 
write1n(7wil 1  overwrite  the  information7)  ; 
writeln(7currently  in  use.7)  ; 
writeln  ; 
writeln  ; 

write1n(7Do  you  wish  to  continue?7)  ; 
if  Okay  then 

begin  (Apple  implementation} 

reset (Ac save, 7 ACSAVE7)  ; 
for  Counter  :=  1  to  MAXAIRCRAF  do 
with  Aircraft [Counter]  do 
begin 

r eadl n (Ac save , I  sac  t i ve , Sor  t ,Tac  t i c , Aspec  t )  ; 
end  ; 

close(Ac save, lock)  ; 
writeln  ; 

writeln<7Aircraf t  data  has  been  restored.7)  ; 

Mai tforReturn  ; 
end  } 

Choice  j«  7C7  5  (return  to  Aircraft  menu} 
end  j  (procedure  AcGetData} 


procedure  BaseSaveData(var  Choice  :  char) 


(X 

Main  Program  Choice  'S' 

X) 

( 

Called  from  :  Parameter  Menu  2 
Returns  to  :  Parameter  Menu  2 

Purpose  :  To  save  the  current  base  value  arrays 
PEbase  and  PHbase  in  the  file  Basave. 

Description  :  This  procedure  is  for  the  Apple  Pascal  compiler. 


> 

var 

AdCount,  AcCount  :  integer  ; 
begin 

ClearScreen  ; 

wri tel n< 'Saving  the  arrays  of  currently  entered')  ; 
wri tel n< 'engagement  and  hit  base  values  will  over-')  ; 
writeln('f;rite  the  information  currently  saved.')  ; 
wri tel n  ; 
wri tel n  ; 

writeln<'Do  you  wish  to  continue?')  ; 
if  Okay  then 

begin  {Apple  implementation) 

rewri te< Basave, 'BASAVE')  5 
for  AdCount  :*  1  to  MAXADKIND  do 
for  AcCount  :*  i  to  MAXACSORT  do 
wri te( Basave ,PEbase[ AdCount , AcCount) :4:2>  ; 
for  AdCount  :=  1  to  MAXADKIND  do 
for  AcCount  :=  1  to  MAXACSORT  do 
write< Basave, PHbaselAdCount ,AcCount J :4:2)  ; 
close  (Basave, lock)  ; 
writeln  } 

wri tel n< 'Engagement  and  Hit  threshold')  ; 
wri tel n( 'data  has  been  saved.')  ; 

Mai tforReturn  ; 
end  ; 

Choice  :«  '0'  j  (return  to  Parameter  Menu  2) 
end  ;  (procedure  BaseSaveData) 
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procedure1  BaseGetData(var  Choice  :  char)  ; 


Main  Program  Choice  'T' 


Called  from  :  Parameter  Menu  2 
Returns  to  :  Parameter  Menu  2 

Purpose  :  To  restore  the  current  base  value  arrays 
PEbase  and  PHbase  -from  the  -file  Basave. 

Description  :  This  procedure  is  -for  the  Apple  Pascal  compiler 


AdCount,  AcCount  :  integer  ; 
begin 

ClearScreen  ; 

wr i tel n(' Restoring  the  arrays  of  currently  entered7)  ; 
wri tel n( 'engagement  and  hit  base  values  will  over-')  ; 
writeln('write  the  information  currently  in  use.')  ; 
writeln  ; 
writeln  ; 

writeln<'Do  you  wish  to  continue?')  ; 
if  Okay  then 

begin  {Apple  implementation) 

reset (Basave, 'BASAVE')  ; 
for  AdCount  :»  1  to  NAXADKIND  do 
for  AcCount  :=  1  to  MAXACSORT  do 

read< Basave ,PEbase( AdCount , AcCount))  ; 
for  AdCount  :=  1  to  MAXADKIND  do 
for  AcCount  :=  1  to  MAXACSORT  do 
read( Basave ,PHbase[ AdCount , AcCount))  ; 
close  (Basave, lock)  ; 
writeln  ; 

wri tel n( 'Engagement  and  Hit  threshold')  ; 
writeln( 'data  has  been  restored.')  ; 

Mai tforReturn  ; 
end  ; 

Choice  :*  '0'  ;  (return  to  Parameter  Menu  2) 
end  ;  (procedure  BaseGetData) 


procedure  FactSaveData(var  Choice  :  char)  ; 


<X 

Main  Program  Choice  'U' 

X) 

< 

Called  from  :  Parameter  Menu  2 
Returns  to  :  Parameter  Menu  2 

Purpose  :  To  save  the  current  -factor  arrays  Place-fact, 
Tacti-fact  and  Aspecfact  in  the  file  Fasave. 

Description  :  This  procedure  is  for  the  Apple  Pascal  compil 


var 

AdCount,  Counter  :  integer  ; 
begin 

ClearScreen  ; 

wri tel n< 'Saving  the  arrays  of  currently  entered')  ; 
wri tel n< 'factors  will  overwrite  the')  ; 
writeln('information  currently  saved.')  ; 
writeln  ; 
wri tel n  ; 

writeln<'Do  you  wish  to  continue?')  ; 
if  Okay  then 

begin  {Apple  implementation) 

rewri te<Fasave, 'FASAVE')  ; 
for  AdCount  <*»  1  to  NAXADKIND  do 
for  Counter  :*  1  to  MAXFACTORS  do 

write<Fasave, PI acefactlAdCount, Counter] : 4 : 2)  ; 
for  AdCount  :=  1  to  MAXADKIND  do 
for  Counter  :*  1  to  MAXFACTORS  do 
write<Fasave,Tactifact(AdCount, Counter] :4:2)  ; 
for  AdCount  :»  1  to  MAXADKIND  do 
for  Counter  :=  1  to  MAXFACTORS  do 
wri te< Fasave, Aspecfact [AdCount , Counter ] :4:2)  ; 
close  (Fasave, lock)  ; 
writeln  ; 

wri tel n< 'Factor  data  has  been  saved.')  ; 

Hai tforReturn  ; 
end  ; 

Choice  j»  '0'  j  (return  to  Parameter  Menu  2) 
end  :  (procedure  FactSaveData) 


procedure  FactGetData(var  Choice  :  char) 


» 


<X 

Main  Program  Choice  'V' 

*) 

{ 

Called  -from  :  Parameter  Menu  2 
Returns  to  :  Parameter  Menu  2 

Purpose  :  To  restore  the  current  -factor  arrays  Place-fact, 
Tacti-fact  and  Aspecfact  -from  the  -file  Fasave. 

Description  :  This  procedure  is  for  the  Apple  Pascal  compiler 

) 

var 

AdCount,  Counter  :  integer  ; 
begin 

ClearScreen  ; 

writeln ('Restoring  the  arrays  of  currently  entered')  ; 

wri te1n( 'factors  wi 1 1  overwrite  the')  ; 

wri tel n( 'inf ormation  currently  in  use.')  ; 

writeln  ; 

wri tel n  5 

writeln('Do  you  wish  to  continue?')  ; 
if  Okay  then 

begin  {Apple  implementation) 

r eset( Fasave, 'FASAWE')  ; 
for  AdCount  1  to  MAXADKIND  do 
for  Counter  :=  1  to  MAXFACTORS  do 

read(Fasave,Placefact(AdCount , Counter))  ,* 
for  AdCount  :=  1  to  MAXADKIND  do 
for  Counter  :=  1  to  MAXFACTORS  do 

read(Fasave,Tactif actlAdCount , Counter))  ; 
for  AdCount  1  to  MAXADKIND  do 
for  Counter  :=  1  to  MAXFACTORS  do 

rea d< Fasave , Aspec f ac 1 1 AdCoun t , Counter ) )  ; 
close  (Fasave, lock)  ; 
writeln  ; 

wri tel n< 'Factor  data  has  been  restored.')  ; 

WaitforReturn  5 
end  ; 

Choice  j*  '0'  5  (return  to  Parameter  Menu  2) 
end  :  (procedure  FactGetData) 


procedure  AdSaveData(var  Choice  :  char)  ; 


<* 

Main  Program  Choice  'H' 

30 

( 

Called  -from  :  Air  Defense  Menu 
Returns  to  :  Air  Defense  Menu 

Purpose  :  To  save  the  current  Air  Defense  Unit  array  Adunit 
in  the  file  Adsave. 

Description  :  This  procedure  is  for  the  TURBO  Pascal  compiler. 


> 

var 

Counter  :  integer  ; 
begin 

Cl earScreen  ; 

wri tel n( 'Saving  the  array  of  currently  entered')  ; 
wri tel n< 'Air  Defense  Units  will  overwrite  the')  ; 
wr i tel n( ' i nf orreat i on  currently  saved.')  ; 
writeln  ; 
wri tel n  5 

wri tel n< 'Do  you  wish  to  continue?')  j 
if  Okay  then 

begin  (TURBO  implementation) 

assign  (Adsave, 'ADSAVE')  ; 
rewrite(Adsave)  ; 
for  Counter  :=  1  to  MAXADUNITS  do 
with  Aduni t( Counter]  do 
begin 

wri tel n< Adsave, I  sac tive, Kind: 2, Location : 2, Effect  level :4:2) 
end  ; 

close( Adsave)  ; 
writeln  ; 

wri tel n< 'Air  Defense  Unit  data  has  been  saved.')  ; 

Wai tforReturn  ; 
end  ; 

Choice  :=  'B'  5  (return  to  the  Air  Defense  Unit  menu) 
end  ;  (procedure  AdSaveData) 
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procedure  AdGetData(var  Choice  :  char)  ; 

(X 

Main  Program  Choice  'I' 

X) 

{ 

Called  from  :  Air  Defense  Menu 
Returns  to  :  Air  De-fense  Menu 

Purpose  :  To  restore  the  current  Air  De-fense  Unit  array  Adunit 
-from  the  -file  Adsave. 

Description  :  This  procedure  is  for  the  TURBO  Pascal  compiler. 

> 

var 

Counter  :  integer  ; 
begin 

ClearScreen  ; 

wr i tel n(' Restoring  Air  Defense  Unit  Data-')  ; 
wri tel n( 'will  overwrite  the  information')  } 
writeln('current1y  in  use.')  { 
writeln  ; 
writeln  j 

writeln('Do  you  wish  to  continue?')  ; 
if  Okay  then 

begin  {TURBO  implementation) 

assign (Adsave, 'ADSAVE')  j 
reset  (Adsave)  5 

for  Counter  :=  1  to  MAXADUNITS  do 
with  Aduni t( Counter]  do 
begin 

readln (Adsave, 1  sac tive, Kind, Location, Effect  level)  ; 
end  ; 

c1ose( Adsave)  ; 
writeln  ; 

writeln('Air  Defense  Unit  data  has  been  restored.')  ; 

Mai tforReturn  ; 
end  ; 

Choice  :=  'B'  5  (return  to  Air  Defense  Unit  menu) 
end  ;  {procedure  AdGetData) 


procedure  AcSaveData(var  Choice  :  char)  ; 


(X 

Main  Program  Choice  'L' 

30 

{ 

Called  from  :  Aircraft  Menu 
Returns  to  i  Aircraft  Menu 

Purpose  :  To  save  the  current  Aircraft  array  Aircraft 
in  the  file  Acsave. 

Description  :  This  procedure  is  for  the  TURBO  Pascal  compiler 

> 

var 

Counter  :  integer  ; 
begin 

ClearScreen  j 

wri tel n< 'Saving  the  array  of  currently  entered')  ; 
wri tel n< 'Aircraft  will  overwrite  the  information')  ; 
writelnt'currently  saved.')  ; 
wri tel n  ; 
writeln  j 

wri tel n< 'Do  you  wish  to  continue?')  ; 
if  Okay  then 

begin  {TURBO  implementation) 

assign  (Acsave, 'ACSAVE')  ; 
rewri te< Acsave)  ; 
for  Counter  :=  1  to  MAXAIRCRAF  do 
with  Aircraf t(Counter)  do 
begin 

wri tel n(Acsave, I  sac tive, Sort :2, Tactic :2, Aspect :2)  ; 
end  ; 

close  (Acsave)  ; 
writeln  ; 

wri teln('Aircraf t  data  has  been  saved.')  j 
Wai tforReturn  5 
end  ; 

Choice  :=  'C'  }  (return  to  the  Aircraft  menu) 
end  ;  (procedure  AcSaveData) 


procedure  AcGetData(var  Choice  :  char)  ; 


Main  Program  Choice  'M' 


Called  from  :  Aircraft  Menu 


Returns  to  :  Aircraft  Menu 


Purpose  :  To  restore  the  current  Aircraft  array  Aircraft 
from  the  file  Acsave. 

Description  :  This  procedure  is  for  the  TURBO  Pascal  compiler. 


Counter  :  integer  ; 
begin 

ClearScreen  j 

wri tel n(' Restoring  the  Aircraft  data')  ; 
writelnt'wil 1  overwrite  the  information')  ; 
wri tel n( 'current  1 y  in  use.')  j 
writeln  ; 
wri tel n  ; 

writelnt'Do  you  wish  to  continue?')  ; 
if  Okay  then 

begin  {TURBO  implementation) 

assign<Acsave,'ACSAME')  ; 
reset  (Acsave)  ; 

for  Counter  :«  1  to  MAXAIRCRAF  do 
with  Aircraft (Counter)  do 
begin 

readln(Acsave,)sactivefSort , Tactic, Aspect)  ; 
end  ; 

closet Ac save)  ; 
writeln  ; 

wri telnt'Aircraf t  data  has  been  restored.')  ; 
MaitforReturn  5 
end  ; 

Choice  :»  'C'  ;  (return  to  Aircraft  menu) 
end  ;  (procedure  AcOetData) 


E-id 


procedure  BaseSaveData(var  Choice  :  char) 


<X 

Main  Program  Choice  'S' 

X) 

{ 

Called  from  :  Parameter  Menu  2 
Returns  to  :  Parameter  Menu  2 

Purpose  :  To  save  the  current  base  value  arrays 
PEbase  and  PHbase  in  the  -file  Basave . 

Description  :  This  procedure  is  for  the  TURBO  Pascal  compiler 


> 

var 

AdCount,  AcCount  :  integer  ; 
begin 

ClearScreen  ; 

wr i tel n(' Saving  the  arrays  of  currently  entered')  ; 
wri tel n(' engagement  and  hit  base  values  will  over-')  ; 
wri telni 'wri te  the  information  currently  saved.')  ; 
wri tel n  ; 
writeln  ; 

writeln<'Do  you  wish  to  continue?')  ; 
if  Okay  then 

begin  <TURBO  implementation) 

assign  ( Basave , ' BASAVE' )  ; 
rewrite< Basave)  ; 
for  AdCount  :=  1  to  MAXADKIND  do 
for  AcCount  :=  1  to  MAXACSORT  do 
write<Basave,PEbase[AdCount , AcCount) :4:2)  ; 
for  AdCount  :=  1  to  MAXADKIND  do 
for  AcCount  :=  1  to  MAXACSORT  do 
wri te< Basave ,PHbase( AdCount .AcCount I :4:2)  ; 
c 1 ose  ( Basave)  ; 
writeln  ; 

wri tel n<' Engagement  and  Hit  threshold')  ; 
wri teln< 'data  has  been  saved.')  ; 

Wai tforReturn  ; 
end  ; 

Choice  !**  '0'  ;  {return  to  Parameter  Menu  2) 
end  ;  (procedure  BaseSaveData) 


procedure  BaseGetDa ta(var  Choice  :  char)  ; 

(X 

Main  Program  Choice  'T' 

X) 

( 

Called  'from  :  Parameter  Menu  2 
Returns  to  :  Parameter  Menu  2 

Purpose  :  To  restore  the  current  base  value  arrays 
PEbase  and  PHbase  iron  the  file  Basave. 

Description  :  This  procedure  is  for  the  TURBO  Pascal  canpil 

> 

var 

AdCount,  AcCount  :  integer  ; 
begin 

ClearScreen  ; 

writeln('Restoring  the  arrays  of  currently  entered')  ; 
wr i tel n< 'engagement  and  hit  base  values  will  over-')  ; 
writeln('write  the  information  currently  in  use.')  ; 
writeln  ; 
writeln  j 

writeln('Do  you  wish  to  continue?')  ; 
if  Okay  then 

begin  (TURBO  implementation) 

assign (Basave, 'BASAVE')  ; 
reset  (Basave)  ; 

for  AdCount  :=  1  to  MAXADKIND  do 
for  AcCount  :=  1  to  MAXACSORT  do 
r ead( Basave , PEbaseC AdCoun  t , AcCoun  1 3 )  j 
for  AdCount  :=  1  to  MAXADKIND  do 
for  AcCount  :=  1  to  1WXACS0RT  do 

read( Basave, PHbasel AdCount ,AcCountI)  ; 
c 1 ose  ( Basave)  ; 
writeln  ; 

wri tel n( 'Engagement  and  Hit  threshold')  ; 
writeln('data  has  been  restored.')  ; 

Mai tforReturn  j 
end  ; 

Choice  :■  '0'  ;  (return  to  Parameter  Menu  2) 
end  j  (procedure  BaseGetData) 


procedure  FactSaveData<var  Choice  :  char)  ; 


<X 

Main  Program  Choice  'U' 

X) 

< 

Called  from  :  Parameter  Menu  2 
Returns  to  :  Parameter  Menu  2 

Purpose  :  To  save  the  current  ‘factor  arrays  Placefact, 
Tactifact  and  Aspecfact  in  the  file  Fasave. 

Description  :  This  procedure  is  for  the  TURBO  Pascal  compiler 


var 

AdCount,  Counter  :  integer  ; 
begin 

ClearScreen  ; 

wr i tel n< 7 Saving  the  arrays  of  currently  entered')  ; 
wri tel n(' factors  Mill  overMrite  the')  ; 
wri teln( 'information  currently  saved.')  ; 

Mriteln  ; 

Mriteln  ; 

Mrite)n('Do  you  Mish  to  continue?')  ; 
if  Okay  then 

begin  {TURBO  implementation) 

assign  (Fasave, 'FASAVE')  j 
rewrite< Fasave)  j 
for  AdCount  :«  1  to  MAXADKIND  do 
for  Counter  j-  1  to  MAXFACTORS  do 
wri te(Fasave, PI acef actCAdCount , Counter] :4:2)  ; 
for  AdCount  s»  1  to  NAXADK1ND  do 
for  Counter  :*  1  to  MAXFACTORS  do 
wri te(Fasave,Tactifact(AdCount , Counter) «4:2)  ; 
for  AdCount  :=  1  to  MAXADKIND  do 
for  Counter  **  1  to  MAXFACTORS  do 
wr ite< Fasave ,Aspec fact (AdCount , Counter) :4s2)  ; 
close  (Fasave)  ; 
writeln  } 

wri tel n< 'Factor  data  has  been  saved.')  ; 
HaitforReturn  ; 
end  ; 

Choice  :■  '0'  ;  (return  to  Parameter  Menu  2) 
end  i  (procedure  FactSaveData) 


procedure  FactGetDatafvar  Choice  :  char)  ; 

<X 

Main  Program  Choice  'V' 

X) 

< 

Called  from  :  Parameter  Menu  2 
Returns  to  :  Parameter  Menu  2 

Purpose  :  To  restore  the  current  -factor  arrays  Place-fact, 
Tacti-fact  and  Aspecfact  -from  the  -file  Fasave. 

Description  :  This  procedure  is  for  the  TURBO  Pascal  compiler. 

) 

var 

AdCount,  Counter  :  integer  ; 
begin 

ClearScreen  ; 

wri tel n< 'Restoring  the  arrays  of  currently  entered')  ; 

wri tel n{ 'factors  wil  1  overwrite  the')  ; 

wri tel n< ' inf ormat ion  currently  in  use.')  ; 

writeln  ; 

wri tel n  ; 

writeln<'Do  you  wish  to  continue?')  ; 
if  Okay  then 

begin  {TURBO  implementation) 

assign <Fasave, 'FASAVE')  j 
reset  (Fasave)  ; 

for  AdCount  :=»  1  to  MAXADKIND  do 
for  Counter  :»  1  to  MAXFACTORS  do 

read( Fasave, PI acef act! AdCount , Counter])  ; 
for  AdCount  :»  1  to  MAXADKIND  do 
for  Counter  :=  1  to  MAXFACTORS  do 

read(Fasave,Tactifact(AdCount , Counter!)  ; 
for  AdCount  :=  1  to  MAXADKIND  do 
for  Counter  :=  1  to  MAXFACTORS  do 
read< Fasave , As pec f ac t [ AdCoun t , Coun ter ! >  ; 
close  <Fasave)  ; 
writeln  ; 

wri tel n{ 'Factor  data  has  been  restored.')  j 
HaitforReturn  } 
end  ; 

Choice  :*  '0'  ;  {return  to  Parameter  Menu  2) 
end  ;  {procedure  FactGetOata) 


v  ^ * 


procedure  AdGetData(var  Choice  :  char)  ; 


(X 

Main  Progra.  Choice  'V 
X) 

{ 

Called  from  :  Air  Defense  Menu 
Returns  to  :  Air  Defense  Menu 

Purpose  :  To  restore  the  current  Air  Defense  Unit  array  Adunit 
from  the  file  Adsave. 

Description  :  This  procedure  is  for  the  UNIX  Pascal  compiler. 

) 

var 

Counter  :  integer  ; 


begin 

ClearScreen  } 

wr i tel n(' Restoring  Air  Defense  Unit  Data')  5 
writeln('wi1 1  overwrite  the  information')  ; 
writeln('currently  in  use.')  { 
writeln  ; 
writeln  ; 

writeln('Do  you  wish  to  continue?')  ; 
if  Okay  then 

begin  {UNIX  implementation) 

reset  (Adsave)  ; 

for  Counter  :*  1  to  MAXADUNITS  do 
with  Aduni tt Counter)  do 
begin 

readln (Adsave, I  sac tive, Kind, Location ,Ef f ectl evel )  ; 
end  ; 
writeln  ; 

writeln('Air  Defense  Unit  data  has  been  restored.')  ; 
WaitforReturn  ; 
end  ; 

Choice  s«  'B'  5  {return  to  Air  Defense  Unit  menu) 
end  ;  {procedure  AdGetData) 


procedure  AcSaveData<var  Choice  :  char)  ; 

<X 

Main  Program  Choice  'L' 

X) 

( 

Called  'from  :  Aircraft  Menu 
Returns  to  :  Aircraft  Menu 

Purpose  :  To  save  the  current  Aircraft  array  Aircraft 
in  the  file  Acsave. 

Description  :  This  procedure  is  for  the  UNIX  Pascal  compiler 

> 

var 

Counter  :  integer  ; 
begin 

ClearScreen  ; 

wri tel n( 'Saving  the  array  of  currently  entered')  ; 
wri tel n< 'Aircraft  will  overwrite  the  information')  ; 
wri tel n< 'currently  saved.')  ; 
writeln  ; 
wri tel n  j 

writeln('Do  you  wish  to  continue?')  5 
if  Okay  then 

begin  {UNIX  implementation) 

rewri te(Acsave)  } 
for  Counter  :=  1  to  MAXAIRCRAF  do 
with  Aircraft [Counter)  do 
begin 

wr i t el n (Acsave , I  sac  t i ve , Sor  t : 2 ,Tac  t i c : 2 , Aspec t : 2) 
end  ; 
writeln  ; 

wri telnt'Aircraf t  data  has  been  saved.')  5 
Mai tforReturn  ; 
end  ; 

Choice  :=  'C'  ;  (return  to  the  Aircraft  menu) 
end  ;  (procedure  AcSaveData) 


procedure  AcGetData(var  Choice  :  char)  ; 

(X 

Main  Program  Choice  'M' 

X) 

{ 

Called  'from  :  Aircraft  Menu 
Returns  to  :  Aircra-ft  Menu 

Purpose  :  To  restore  the  current  Aircra-ft  array  Aircra-ft 
from  the  file  Acsave. 

Description  :  This  procedure  is  for  the  UNIX  Pascal  compiler 

> 

var 

Counter  :  integer  ; 
begin 

ClearScreen  ; 

wr i tel n( 'Restoring  the  Aircraft  data')  ; 
wri tel n< 'ui 1 1  overwrite  the  information')  ; 
writeln('currently  in  use.')  ; 
wri tel n  ; 
wri tel n  j 

writelnC'Do  you  wish  to  continue?')  ; 
if  Okay  then 

begin  {UNIX  implementation) 

reset  <Acsave)  ; 

for  Counter  :*  1  to  MAXAIRCRAF  do 
with  Aircraf tf Counter  I  do 
begin 

readln (Acsave, Isactive,Sort ,Tactic , Aspect)  ; 
end  ; 
wri tel n  ; 

writeln('Aircraf t  data  has  been  restored.')  5 
WaitforReturn  ; 
end  ; 

Choice  :=  'C'  5  (return  to  Aircraft  menu) 
end  :  (procedure  AcGetData) 


procedure  BaseSaveData<var  Choice  :  char)  ; 


<X 

Main  Program  Choice  'S' 

X) 

{ 

Called  from  :  Parameter  Menu  2 
Returns  to  :  Parameter  Menu  2 

Purpose  :  To  save  the  current  base  value  arrays 
PEbase  and  PHbase  in  the  -file  Basave. 

Description  :  This  procedure  is  for  the  UNIX  Pascal  compiler 

) 

var 

AdCount,  AcCount  :  integer  ; 
begin 

ClearScreen  ; 

wri tel n( -'Saving  the  arrays  of  currently  entered')  ; 
wri tel n< 'engagement  and  hit  base  values  will  over*')  ; 
writeln('write  the  in-formation  currently  saved.')  ; 
writeln  ; 
writeln  ; 

writeln<'Do  you  wish  to  continue?')  ; 
i-f  Okay  then 

begin  {UNIX  implementation) 

rewri te< Basave)  ; 

■for  AdCount  1  to  MAXADK1ND  do 
•for  AcCount  :=  1  to  MAXACSORT  do 
wri te<Basave,PEbase[AdCount, AcCount) :4:2)  ; 

•for  AdCount  :=  1  to  MAXADKIND  do 
for  AcCount  :=  I  to  MAXACSORT  do 
wri te(Basave,PHbase[AdCount , AcCount! :4:2)  ; 
writeln  ; 

wri tel n< 'Engagement  and  Hit  threshold')  ; 
wri tel n( 'data  has  been  saved.')  ; 

Wai tf orReturn  ; 
end  ; 

Choice  :=  '0'  5  {return  to  Parameter  Menu  2) 
end  :  {procedure  BaseSaveData) 


procedure  BaseGetData(var  Choice  :  char)  ; 

(X 

Main  Program  Choice  'T' 

X) 

( 

Called  -from  s  Parameter  Menu  2 
Returns  to  :  Parameter  Menu  2 

Purpose  :  To  restore  the  current  base  value  arrays 
PEbase  and  PHbase  from  the  file  Basave. 

Description  :  This  procedure  is  for  the  UNIX  Pascal  compiler 

} 

var 

AdCount,  AcCount  :  integer  ; 
begin 

ClearScreen  ; 

wri tel n< 'Restoring  the  arrays  of  currently  entered')  ; 
wri tel n< 'engagement  and  hit  base  values  will  over-')  ; 
wr i tel n< 'wr i te  the  information  currently  in  use.')  ; 
writeln  ; 
writeln  ; 

writelnt'Do  you  wish  to  continue?')  ; 
if  Okay  then 

begin  (UNIX  implementation) 

reset  (Basave)  j 

for  AdCount  :=  1  to  MAXADKIND  do 
for  AcCount  :=  1  to  MAXACSORT  do 

read(Basave,PEbase[AdCount , AcCount))  ; 
for  AdCount  :=  1  to  MAXADKIND  do 
for  AcCount  :=  1  to  MAXACSORT  do 

read(Basave,PHbase(AdCount , AcCount))  ; 
writeln  ; 

wri tel n< 'Engagement  and  Hit  threshold')  ; 
wr i tel n (' data  has  been  restored.')  ; 

Wai tforReturn  ; 
end  ; 

Choice  :=  '0'  ;  (return  to  Parameter  Menu  2) 
end  :  (procedure  BaseGetData) 


procedure  FactSaveData<var  Choice  :  char)  ; 

<* 

Main  Program  Choice  "U" 

JO 

{ 

Called  'from  i  Parameter  Menu  2 
Returns  to  :  Parameter  Menu  2 

Purpose  :  To  save  the  current  factor  arrays  Placefact, 
Tactifact  and  Aspecfact  in  the  file  Fasave. 

Description  :  This  procedure  is  for  the  UNIX  Pascal  compiler. 


var 

AdCount,  Counter  :  integer  ; 
begin 

Cl  ear Screen  ; 

wri tel n< ''Saving  the  arrays  of  currently  entered")  ; 
wri teln( "factors  wi 1 1  overwrite  the")  ; 
wri teln< " information  currently  saved.")  ; 
writeln  ; 
writeln  ; 

writeln<"Do  you  wish  to  continue?")  } 
if  Okay  then 

begin  {UNIX  implementation) 

rewri te< Fasave)  ; 
for  AdCount  :=  1  to  MAXADK1ND  do 
for  Counter  :=  1  to  MAXFACTORS  do 

write<Fasave,Placefact£AdCount, Counter) :4:2>  ; 
for  AdCount  :=  1  to  MAXADKIND  do 
for  Counter  s-  1  to  MAXFACTORS  do 
write(Fasave,Tactifact£AdCount,Counter] : 4 : 2)  ; 
for  AdCount  «=  1  to  MAXADKIND  do 
for  Counter  s=  1  to  MAXFACTORS  do 

wri te<Fasave,Aspecf ac tCAdCount , Counter ) : 4 i 2)  ; 
writeln  ; 

wri telnC'Factor  data  has  been  saved.")  ; 

Wai tforReturn  { 
end  ; 

Choice  i-  '0'  ;  {return  to  Parameter  Menu  2) 
end  ;  {procedure  FactSaveData) 


procedure  FactGetData(var  Choice  :  char)  ; 

<X 

Main  Program  Choice  'V' 

X) 

{ 

Called  From  :  Parameter  Menu  2 
Returns  to  :  Parameter  Menu  2 

Purpose  :  To  restore  the  current  Factor  arrays  PlaceFact 
TactiFact  and  AspecFact  From  the  File  Fasave. 

Description  s  This  procedure  is  For  the  UNIX  Pascal  compiler 

} 

var 

AdCount,  Counter  :  integer  j 
begin 

ClearScreen  ; 

writeln('Restoring  the  arrays  oF  currently  entered')  j 
wri teln< 'Factors  wi 1 1  overwrite  the')  ; 
wr i tel n( ' inFormation  currently  in  use.')  ; 
writeln  ; 
wri tel n  ; 

writelnF'Do  you  wish  to  continue?')  ; 
if  Okay  then 

begin  {UNIX  implementation) 

reset  (Fasave)  ; 

For  AdCount  «=  1  to  MAXADK1ND  do 
For  Counter  t-  1  to  MAXFACTORS  do 

read( Fasave, PlaceFact (AdCount , Counter))  ; 

For  AdCount  :=  1  to  MAXADKIND  do 
For  Counter  1  to  MAXFACTORS  do 
read< Fasave, Tacti Fact [AdCoun t , Counter!)  ; 

For  AdCount  s=  1  to  MAXADKIND  do 
For  Counter  s=  1  to  MAXFACTORS  do 

read(Fasave,AspecFactIAdCount , Counter!)  ; 
writeln  ; 

writelnt'Factor  data  has  been  restored.')  ; 

Wai tForReturn  ; 
end  ; 

Choice  :=  '0'  ;  {return  to  Parameter  Menu  2> 
end  ;  {procedure  FactGetData) 


1- . 


A  simple  function  implements  a  linear  congruential 
pseudo-random  number  generator.  Each  random  number 
generated  serves  as  the  basis  for  the  next.  The  linear 
congruential  generator  is  of  the  form 

ICi+1]  ■  <a  X  Ili]  ♦  1>  mod  httXINT  [3] 

where 

a  ■  k  *  4  +  i  k  -  0, 1,2. ..  1 4] 

and  MAXINT  is  implementation  dependent.  Certain  values  of  a 


provide  better  sequences  of  random  numbers  for  micro¬ 
computers.  The  following  Pascal  code  used  in  the  program 
returns  random  integers  in  the  range  1  to  100: 


function  Uniform  :  integer  ; 

< 

Requires  the  external  global  variable  Seed 
MULT  may  be  1221,1287,3993,4189,4293, 
9237,14789,15125  or  17245 


const 

MULT  =  3993  ; 
begin 

Seed  :=  MULT  X  Seed  +  1  } 

if  Seed  <  0  then  Seed  s-  Seed  ♦  maxint  ♦  1  ; 
Uniform  :=  trunc<<Seed/maxint) X 100)  ♦  1; 
end  ;  Cfunction  Uniform) 


This  emulates  the  uniform  distribution  of  numbers  resulting 


from  the  roll  of  a  die. 


The  period  is  32763  numbers  generated 


Periodici tv. 

be-fore  a  repetitive  sequence  is  encountered  on  the 
development  system.  This  was  determined  in  a  separate 
program  that  placed  the  first  five  random  numbers  in  an 
array  and  then  consecutively  compared  each  string  of  five 
numbers  generated  with  the  first  five.  Strings  of  five 
numbers  were  made  by  entering  a  generated  number  at  one  end 
of  the  comparison  array  and  removing  a  number  from  the  other 
end  of  the  array,  so  that  in  the  course  of  five  comparisons 
with  the  first  five  numbers,  a  single  number  occupied  each 
of  the  five  positions  in  the  test  array.  This  was  done  with 
several  different  random  number  seeds.  In  each  case  32763 
random  numbers  were  generated  before  a  repetitive  sequence 
of  five  numbers  in  a  row  was  found. 

Chi-Sauared  Test.  A  simplified  Chi-Squared  test  was 
run  in  a  separate  program.  One  thousand  random  numbers  were 
generated  in  the  interval  1  to  100.  The  occurence  of  each 
number  in  the  interval  was  noted  for  five  different  seeds. 
The  results  for  each  seed  and  the  Chi -Squared  values  are  in 
Tables  F-l  thru  F-5.  These  Chi -Squared  values  have  been 
divided  by  the  number  of  'observations' ,  100,  and  are 
acceptable  values  for  the  frequency  expected  for  a  uniform 
distribution.  CWhitney,  1984:4461  At  a  0.05  level  of 
significance,  the  hypothesis  that  there  is  no  difference 
between  the  generated  distribution  and  a  uniform 


Runs  Tests.  Tests  were  made  in  separate  programs  -for 
runs  up  and  down  and  runs  above  and  below  the  mean  value  o-f 


50.  (Banks  and  Carson,  1984:271-2781  These  tests  examine 
the  hypothesis  that  the  numbers  returned  are  independent  o-f 
one  another.  A  run  is  de-fined  as  a  sequence  of  similar 
events  bracketed  by  dissimilar  events.  Runs  tests  are 
concerned  with  both  the  number  and  length  of  runs.  For  runs 
up  and  down,  the  two  types  of  runs  are  sequences  of  numbers 
in  which  each  of  the  numbers  is  followed  by  a  larger  number, 
an  up  run,  or  a  smaller  number,  a  down  run.  A  or  a-a  is 
assigned  each  number  generated  depending  on  whether  the 
following  number  is  larger  or  smaller.  For  N  numbers,  the 
maximum  number  of  runs  is  N-l,  and  the  minimum  is  a  single 
run.  The  mean,  M,  of  A  runs  in  a  sequence  of  N  numbers  is 

2  X  N  -  1 

3  [  F 1 1 

while  the  variance  is 


14  X  N  -  29 

90  [F21 
The  Z  statistic  is  calculated  as  <A  -  M>/S,  where  S  is  the 
standard  deviation  and  Z  is  normally  distributed  on  the 
interval  (0,1).  The  results  of  the  runs  in  100  numbers  are 
in  Table  F-4.  The  Z  value  calculated  is  0.784,  so  failure 
to  reject  the  hypothesis  of  independence  occurs  at  a  0.05 
level  of  significance. 


F-4 


V.  ■ 


For  runs  above  and  below  the  mean  of  50,  a  ♦  is 

assigned  to  each  number  greater  than  50,  and  a  is 

assigned  to  each  number  less  than  or  equal  to  the  mean.  For 

this  test,  nl  is  the  number  of  observations  above  the  mean, 

n2  is  the  number  of  observations  below  the  mean,  B  is  the 

total  number  of  runs,  and  N  is  the  total  number  of 

observations.  The  mean,  M,  for  the  Z  statistic  is 

1/2  f  <  2  X  n  1  X  n2) 

N  CF33 

and  the  variance  is 

2  X  nl  X  n2  X  <2  X  nl  *  n2  -  N> 

N  X  N  X  <N  -  1>  IF43 

The  Z  statistic  is  calculated  as  (B  -  M)/S,  where  S  is  the 
standard  deviation.  The  results  of  the  runs  in  100  numbers 
are  in  Table  F-7.  The  Z  value  calculated  is  -0.037,  so 
failure  to  reject  the  hypothesis  of  independence  occurs  at  a 
0.05  level  of  «*  g.-.if  icance. 


Conclusion 

The  period  for  the  random  number  generator  used  is 
sufficient  for  the  program  since  over  6000  engagements  could 
be  made  without  repeating  a  sequence  of  random  numbers.  The 
Chi-Squared  test  fails  to  reject  the  hypothesis  that  the 
numbers  returned  are  uniformly  distributed.  The  two 
different  runs  tests  fail  to  reject  the  hypothesis  that  the 
numbers  returned  are  independent.  The  conclusion  may  be 
drawn  that  the  random  number  generator  is  suitable  for  the 
purposes  of  the  program  on  the  development  system. 
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Tactics  Factors 
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ENGAGEMENT 


Die  Rol 1 

Vul can  vs 

He? i copter 
Fighter 
Chaparral  vs 
Fighter 
Redeye  vs 

Hel i copter 
Fi  gh  ter 


1  2  3  4  5  __6 

0  E  E  E  E  E 

0  0  0  E  E  E 

0  0  0  E  E  E 

0  0  0  E  E  E 

0  0  0  E  E  E 


0  -  no  effect 

E  -  engaged,  consult  effect 


EFFECTS 
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RESULTS 


!  Die  Roll 

*  Vulcan  vs 

Hel icopter 
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Redeve  vs 

Hel icopter 
Fighter 


1  2  3  4  5  6 

S  S  D  D  D  D 

S  S  S  S  D  D 

S  S  S  D  D  D 

S  S  S  D  D  D 


S  -  suppressed 
D  -  destroyed 
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be  changed. 

The  program  is  designed  specifically  to  be  used  by  personnel 
without  a  computer  background,  yet  has  a  structured  programming 
style  that  permits  easy  modification  by  a  programmer.  The  Air 
Defense  War  Game  Support  Program  is  written  in  standard  Pascal 
and  can  run  on  a  standard  micro-computer  with  64  thousand  (64K) 
bytes  of  memory. 
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